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ABSTRACT 


Text  editors  and  text  format ters/orocessors  are 
described.  The  state-of-the-art  in  text  processing  is 
examined.  Design  and  impl ementat ion  considerations  in 
developina  an  interactive#  integrated#  screen-oriented  text 
editing  and  formatting  system  are  discussed.  A  Berkeley 
PASCAL  i mol ementat i on  of  such  a  system  for  a  PDP-11  mini- 
comouter  under  the  UNIX  timesharing  system  is  presented. 
Intended  system  users  are  non-comouter  scientists#  e.g. 
secretaries#  business  executives#  engineers#  students#  etc. 
Programming  experience  is  not  reguired  to  utilize  the 
system. 
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I.  INTRODUCTION 


A.  THESIS  OBJECTIVE 

Most  existinq  text  editors  and  formatters  currently 
available  are  deficient  for  various  reasons.  Specifically# 
most  text  editors  are  1 i ne-or i ented#  many  formatters  are 
non-i nt erac t i ve »  and  few  editors  and  formatters  are 
integrated  into  a  single  system.  For  these  reasons#  the 
design  of  a  "better"  text  orocessing  system  was  undertaken 
to  demonstrate  the  feasibility  and  utility  of  such  a 
comorehens i ve  system.  Toward  this  end#  a  survey  of  the 
current  state-of-the-art  in  text  Drocessing  was  carried 
out.  Based  on  this  research#  the  design  of  a  "better"  text 
processina  system  is  oresented. 

This  system  is  an  interactive#  integrated#  screen- 
oriented#  context-or i ented  text  processing  system 
consisting  of  both  a  text  editor  and  formatter.  Tt  is 
designed  to  be  easy-to-i earn#  easy-to-use#  easy-to-enhance# 
and  easv-to-maintain.  Intended  system  users  are  non- 
computer  scientists#  e.g.  secretaries#  business  executives# 
engineers#  students#  etc.#  who  mav  or  may  not  have 
programming  experience.  This  svstem  has  been  designed  to 
aid  in  the  preparation  of  documents  and/or  orograms.  The 
system  has  been  implemented  on  existing  Naval  Postgraduate 
School  (NPS)  hardware  using  available  software. 
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Four  features  characterize  this  system.  First*  it  is 
fully  integrated  in  that  the  text  editor  and  formatter  are 
not  seoarate  entities  but  como 1 ement ary  parts  of  a  single 
oroqram.  Secondly*  this  system  is  interactive  and  provides 
the  user  with  immediate  feedback.  Third*  it  is  screen  or 
di sp! ay*or i ented.  A  visual  display*  on  a  cathode  ray  tube 
(CRT ) -eoui oped  terminal*  serves  to  provide  both  the  editing 
and  formatting  feedback.  The  screen-orientat ion  eliminates 
the  need  for  many  hardcopy  printouts  as  the  screen 
depiction  is  exactly  how  the  final*  finished  product  will 
appear.  Finally*  manipulation  of  the  text  through  the 
screen  window  for  perusal  and  modification  is  context- 
oriented. 

B.  TEXT  EO I  TOR  DEFINITION 

Although  the  term  "text  editor"  is  widely  used*  it  is 
necessary  to  clearly  define  its  meaning  here.  In  general* 
an  editor  is  an  interactive  comouter  program  that  allows 
the  user  to  create  and  modify  a  text  file.  This  file  is 
simply  a  seauence  of  character  data.  An  editor  is  used  to 
write  documents  such  as  term  papers*  theses*  letters*  etc.* 
and  programs.  The  text  editor  performs  the  following 
tasks: 

-  provides  access  to  the  text  stream  from  both  file 
storage  and  terminal  input* 

-  adds  text  to  the  text  file* 

-  distinguishes  between  words  and  spaces  to  solit 


i 
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and  build  lines  of  text#  and 
•  alters  the  text  at  a  given  location  based  on 
user  specifications. 

Text  editors  are  widely  used  because  corrections  and 
modi f i cat i ons  to  the  text  file  are  easily  made  as  oooosed 
to  re-enterinq  a  complete  undated  version  of  the  text. 

Most  editors  provide  functions  to  insert*  delete*  copy* 
move*  scan  and  substitute  text  within  the  text  file.  A 
text  editor  also  provides  facilities  to  manipulate  the  text 

I 

file  so  that  it  may  be  created,  destroyed*  saved  or 
updated.  Displayina  and/or  printinq  out  the  text  is  easily 
accomplished.  In  addition*  the  user  is  able  to  locate  a 
particular  location#  anywhere  in  the  file*  in  several 
different  ways.  The  user  can  scan  through  the  displayed 
text  by  movina  the  cursor*  by  reauestinq  the  display  of 
specified  lines  or  by  initiating  a  context  search  in  which 
the  editor  attempts  to  match  a  specified  sequence  or 
pattern  of  characters. 

There  are  two  distinct  types  of  text  editors  that 
impact  uoon  this  project.  The  first  category  is  line- 
oriented  and  the  second  is  context-oriented.  These 
categories  are  described  in  the  following  paragraphs. 

1 .  Line-Oriented  Editors 

Line-oriented  editors  are  those  in  which  the  text  is 
logically  divided  into  lines.  A  line  is  a  character 
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seauence  that  is  delimited  within  the  file  by  a  soecial 
line  marker  at  its  beginning  or  end.  Lines  should  not  be 
confused  with  sentences.  This  type  of  editor  is 
distinguished  by  the  assignment  of  either  a  permanent  or  a 
relative  line  number  to  each  and  every  line  of  text.  These 
line  numbers  serve  as  user  reference  points.  Editor 
commands  include  line  numbers  to  indicate  where  the  desired 
action  is  to  occur.  The  major  advantage  of  l i ne-or i ented 
editors  is  their  ability  to  be  used  on  both  CRT  and 
hardcopy  terminals  and  their  tolerance  of  a  slow 
communication  rate.  In  addition#  many  secretaries  and 
typists  feel  that  a  physical  line  is  the  most  logical  and 
reasonable  entity  to  manipulate  while  editing.  Two  other 
factors  that  sell  1 i ne-oriented  editors  are  the  disruption 
of  touch-typing  habits  on  key-defined  function  editors  and 
the  comoletely  context-free  ooeration  of  character-oriented 
edi tors . 

2 .  Contex t -Or i ented  Editors 

Contex t -or i ented  editors  are  so  termed  because  there 
are  no  associated  line  numbers  for  reference  purposes. 
Instead  the  text  file  is  referenced  relative  to  the 
existing  text  by  specifying  a  particular  marker  or  sequence 
of  characters  in  a  context  search#  or  by  the  use  of 
absolute  x-y  addressing  if  available  on  the  CRT  terminal. 
These  files  are  usually  divided  into  cages  which  may  or  may 
not  be  further  broken  down  into  lines.  Context  editors  are 
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not  generally  implemented  on  hardcoDy  terminals  or  CRT 


terminals  with  a  low  baud  rate  because  too  much  time 
elaoses  while  the  oaqe  of  text  is  printed  out  or  displayed. 
C.  TEXT  FORMATTER  DEFINITION 

A  text  formatter  or  processor  is  a  computer  program 
which  allows  the  user  to  maniDulate  the  text  file  to 
produce  a  specified  output  format.  Formatters  are  used  in 
document  ©reparation.  The  processor  keeps  track  of  the 
page  format  as  defined  by  the  page  margins#  number  of  lines 
per  page/  and  line  soacina  specifications  which  are  all 
subiect  to  change.  It  provides  page  numbering# 
indentation#  headinas  and  footers#  and  an  underlining 
capability.  A  typical  text  formatter#  [S#  7#  101# 
performs  the  following  tasks: 

-  accesses  the  text  file  from  storage# 

-  distinguishes  between  format  commands  and  text# 

-  provides  reasonable  and  general  default  format 
soec i f i cat i ons  # 

-  redefines  the  format  specifications  as  directeo 
by  the  user# 

-  splits  and  concatenates  lines  of  the  original 
text  file  to  produce  lines  conforming  to  the 
output  specifications# 

-  fills  text  by  outing  as  many  words  as  possible 


within  a  line# 


-  outputs  blank  lines  or  skios  lines/ 

-  provides  for  oaoe  ejects  or  skios  to  the  too  of 
a  new  page/ 

•  outputs  irregular/  non-filled  lines  of  text/ 
e.g.  titles/  when  directed  by  the  user/  and 

-  allows  the  line  to  be  centered/  r i gh t- j ust i f i ed 
(aligned  alonq  the  right  margin)/  or  underlined. 

Text  formatters  allow  drastic  format  changes  to  be 
accomolished  by  the  user  to  improve  the  document's  final 
aopearance  and  thus  its  readability. 

Many  text  processors  adjust  the  lines  of  text  which 
means  the  line  is  both  filled  and  right-justified  by 
inserting  extra  blanks  within  the  line.  Sooh i st i cated 
formatters/  in  addition  to  the  previously  mentioned 
features/  may  provide  spelling  checks/  hyphenation/ 
footnote  oroduction  and  generation  of  a  table  of  contents 
or  indices.  Text  processors  mav  or  may  not  be  interactive. 
Non-i nterac t i ve  formatters  require  the  user  to  visualize 
the  effect  of  the  format  command  and  later  verify  the 
desired  result  by  printing  out  a  hardcooy  listing  of  the 
document.  Interactive  formatters  do  not  require  this 
mental  t rans f ormat i on  and  verification  process  by  the  user 
because  the  command  result  is  immediately  apparent. 

Before  proceeding  on  to  the  survey  of  text  processing/ 
it  is  appropriate  to  define  a  text  processing  capability. 


Systems  possessinq  a  text  processinq  capability  are  able  to 
perform  the  previously  mentioned  tasks  of  both  an  editor 
and  formatter.  For  the  purposes  of  this  thesis*  word 
processina  and  text  processinq  are  synonymous. 


I!.  TEXT  PROCESSING  SURVEY 


The  initial  steo  in  this  thesis  was  to  survey  the 
current  state-of-the-art  in  text  orocessinq.  In  this 
survev»  the  commercial  marketplace  was  reviewed.  In 
addition#  ten  existinq  NPS  text  editors  and  processors  were 
observed.  The  survey  goal  was  to  determine  the  most 
desirable  features  of  a  text  orocessinq  system. 

A.  COMMERCIAL  TEXT  PROCESSING 

Although  text  orocessinq  has  been  around  since  the 
mid-sixties  at  academic  and  research  institutions#  it  was 
not  until  the  mid-seventies  that  it  became  commercially 
attractive.  The  technological  advances  of  the  early  and 
mid-seventies  brouqht  about  a  rapid  decrease  in  both 
comouter  size  and  price.  These  factors  made  them  very 
attractive  to  oerform  a  variety  of  tasks#  particularly  text 
processing#  in  an  automated  office.  FORTUNE'S  "Trends  in 
Comout i ng--Aoo 1 i cat i ons  for  the  80's"  1 2 0 J #  describes 

automation's  impact  in  this  manner#  "In  the  white  collar 
factory,  the  office#  the  comouter  and  its  mi c roorocessor- 
based  offsorinq  are  incitinq  a  revolution  of  epic 
proportions  with  word  and  text  orocessinq...."  Comouter 
vendors  of  both  hardware  and  software  are  scramblinq  to 
establish  themselves  in  the  emerginq  office  automation 
market.  The  following  examples  of  this  scramble  were  cited 


in  the  FORTUNE  article  120] 


Data  General  has  added  text 


processinq  to  the  commercial  capabilities  of  its  Eclipse 
Computers.  Maria  has  given  all  of  its  VS  computers  a  text 
proeessina  capability  throuqh  "mailword".  Germany's 
Nixdorf  disclosed  a  second  qeneration  of  distributed  data 
systems  tha*  perform  text  processing,  batch  and  interactive 
communications,  data  entry,  and  local  file  and  data  base 
processinq.  Ounn,  in  COMPUTER  DECISIONS  [9] ,  provides  this 
estimate  of  the  size  of  the  text  processing  market, 
"Revenues  from  word  processinq  have  jumped  from  $936 
million  in  1977  to  SI. 5  billion  in  1978  when  120,000  units 
were  acquired,  and  are  projected  to  reach  b00,000  units, 
grossinq  $6  billion,  in  1983." 

Two  factors  causinq  management's  acauisition  of  text 
processinq  facilities  are  the  secretarial  shortage  and  the 
low  productivity  of  white  collar  and  clerical  employees. 
Dunn,  in  "The  Office  of  the  Future  Part  II"  151,  details 
the  secretarial  problem  in  this  way,  "...last  year  [19781 
60,000  secretarial  lobs  went  unfilled,  though  salaries  are 
risinq  more  than  10X  a  year.  By  the  mid-1980's  the 
secretarial  shortfall  could  reach  the  quarter  of  a  million 
mark."  wilds,  in  "The  Smart  Way  to  Pick  Word  Processors" 
(241,  provides  an  example  of  the  productivity  impact  of 
text  process-  inq.  A  typical  productivity  increase 
occurred  at  J.  C.  Penny  Co.  where  the  installation  of  text 
processinq  equipment  cut  turnaround  time  on  typed  documents 


from  "as  long  as  a  weex"  to  an  average  of  "next  day". 

There  are  two  orincioal  products  sold  by  text- 
processing  vendors.  Stand-alone  text  processors  with  price 
tags  of  $6*000  to  $12*000  each  are  the  most  popular.  An 
alternative*  the  purchase  of  a  word-process i ng  package  for 
CPU's*  makes  text  processing  another  data  processing 
application.  These  Packages  cover  a  considerable  price 
range  uo  to  $75*000.  Independent  suppliers*  rather  than 
computer  manufacturers*  provide  most  of  this  software.  A 
representative  samoling  of  text  processing  software 
packages*  derived  from  the  January  1P80  issue  of  COMPUTER 
DECISIONS  UP) *  packages  would  include  the  following: 

-  W0PD-0NE--used  with  IBM  360/40  or  above*  370/ 

135  or  above*  4300  series*  National  and 
Amdahl  systems*  sold  by  Bowne  Information 
Systems  for  $65*000* 

-  AZ-TEXT--used  with  Oata  General’s  Advanced 
Operating  System  and  Eclipse  System*  sold  by 
Data  General  Corporation  for  $4*000* 

-  Dataooint  Word  Processinq--used  with  Datapnint 
3800,  1800  and  1500  series  processors*  sold  by 
Dataooint  Corporation  for  $750* 

-  Word-i l --used  with  DEC  RSTS/E  timesharing 
executive;  sold  by  Data  Processing  Design*  Inc. 


There  are  many  text  processing  systems  available  for 
microcomputers.  The  following  packages  are  a  few  of  those 
availaple  for  INTEL-based  8080  and  Z-80  microcomputers. 
Small  Business  Applications,  Inc.  markets  Magic  Wand  at 
1*100.  The  Software  Store  has  MWP  (Mini  Word  Processing 
System)  for  $195.  The  TRS-80  Microprocessor  can  use  either 
The  Electric  Penc i I ,  for  $100  or  $150,  or  Scripset,  for  $69 
or  $99.  These  software  packages  can  be  economically 
integrated  into  existina  systems  without  the  purchase  of 
special  hardware. 

As  previously  mentioned,  stand-alone  or  dedicated 
systems  are  the  most  oooular.  The  vendors  of  these  systems 
market  a  complete  hardware/software  package  consisting  of  a 
workstation  and  the  support  software.  These  systems 
usually  have  specialized  termina)a.  "Clustered,  or  shared 
resource,  word  processing  systems  (which  rely  on  minis  and 
micros)  are  the  fastest  growing  word  processing  segment" 
according  to  FORTUNE  (201.  CPT,  Lanier,  AM  Jacquard,  Wang 
and  Xerox  are  only  a  few  of  the  vendors  marketing  these 
systems . 

B.  COMMERCIAL  TRENDS 

Several  interesting  developments  are  occuring  in  text 
processing.  First,  CPT-disolays  are  inheriting  the  market 
from  nondisolay  systems.  Text  processors  that  use  hardcopy 
terminals  exclusively  are  being  recognized  as  less 
productive  and  less  attractive.  Also,  significant  price 


decreases  make  display  systems  more  attractive.  Second* 
there  is  a  trend  toward  resource  sharing  and  Joint  tent 
processing  and  data  processing.  In  this  area*  A x X A 
Corporation  tackles  executive  and  secretarial  productivity 
with  its  new  dual  workstation*  supporting  text  processing* 
electronic  mail*  calculation*  data  processing  and  file 
access.  Xerox  Office  Products  announced  the  R60  Advanced 
workstation  that  Performs  text  processing*  system  book¬ 
keeping  and  data  orocessing.  Finally*  the  new  systems  are 
multifunctional.  Text  orocessing  is  integrated  with 
telecommunications*  facsimile  t ransmi ss i on*  numeric 
processing*  electronic  mailing,  data  entry  and  access*  and 
other  functions  such  as  search/sort*  filing*  statistics 
generation*  etc.  [20,  251 

C.  EXISTING  NPS  TEXT  EDITORS  AND  FORMATTERS 

To  evaluate  the  current  state-of-the-art  on  campus*  a 
review  of  ten  editors*  formatters  or  word  processing 
systems  was  undertaken.  These  systems  were  either  used  by 
the  author  or  observed  in  use.  User's  Manuals  and  other 
system  document  at i on  were  reviewed.  The  followina  systems 
were  examined: 

Cl)  CRT  Text  Editor  NED*  1977*  used  on  the 
P0P-11/70,  121? 

(2)  AMOS/2  Editor,  1972*  used  on  the  AGT-10* 


(3)  EOT  Editor,  1977,  used  on  the  POP-11/50,  (71; 

(а)  Interactive  Display  Editor  Vi,  1979,  used  on 

the  P0P-11/50,  1131 ? 

(5)  NROFF  tent  processor,  197a,  used  on  the 
PDP-U/50,  r  1 6]  J 

(б)  TEO  editor,  1978,  used  on  the  8080  and  2-80, 
rail; 

(7)  PRO  formatter,  1978,  used  on  the  8080  and 

Z-80,  tP 1 ) ; 

(8)  UCSD  PASCAL  Screen-Or iented  Editor,  1978, 

used  on  the  8080  and  Z-80,  ( P P 1  ; 

(9)  UNIX  Text  Editor  Ed,  1975,  used  on  the 

POP- 1 1 /SO ,  1231;  and 

(10)  WPS-8  Word  Processino  System,  1978,  used  on 
the  PDP-a,  (261  . 

These  systems  covered  the  entire  spectrum  of  text 
editors  and  formatters  from  the  simple,  relatively 
unsophisticated,  qeneral -purpose  models  to  complex, 
sophisticated,  specialised  systems.  They  also  provided  a 
fairly  represent  at i ve  historical  development  of  text 
orocessinq  systems,  from  the  non-i nt erec t i ve,  1 i ne-or i anted 
NROFF  formatter  (197U)  to  the  interactive,  di soay-oriented, 
context  editor  Vi  (1980),  and  the  inteqrated,  interactive, 
screen-ori ented  context  WPS-8  Word  Processing  System 
(1978). 
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Of  the  ten  systems  examined#  the  WPS-8  was  the  only 
stand-alone  text  orocessinq  system.  The  other  systems  were 
run  on  qenera 1 -ouroose  comouter  systems.  Terminal 
characteristics  varied  considerably  among  the  reviewed 
systems.  ED#  NEO#  NROFF  and  WPS-8  utilize  special  graphics 
terminals.  NFO  and  WPS-8  reauire  soecial  function  keys. 
UNIX's  Ed  and  Vi#  PRO#  TED#  and  UCSO's  editor#  can  be  used 
on  a  wide  ranqe  of  terminals#  both  intelligent  and  dump# 
disnlay  or  hardeooy.  AMOS/2  uses  a  teletyoe. 

Of  the  editors  surveyed#  AMOS/2#  EDT#  UNIX's  Ed#  and 
TED  were  1 i ne-or i ented.  The  context-oriented  editors  were 
NED#  Vi#  UCSD's  editor  and  the  WPS-8.  NED  and  UCSD's 
editor  performed  some  formatting  functions  such  as  margin 
setting#  fillinq#  centering#  right  i ust i f i cat i on #  etc.  Vi 
and  wPS-8  had  the  most  extensive  command  sets.  The  command 
vocabulary  was#  un f ortunatel y »  so  extensive  that  the  user 
had  to  frequently  refer  to  system  documentation  for  help. 
Some  of  the  commands  were  very  similar  looking  but 
performed  widely  different  functions.  The  special  function 
keys  on  the  NED  and  WPS-8  terminals  facilitated  the  editing 
process.  Editor  commands  were  generally  one  character 
followed  by  line  numbers  where  appropriate.  Many  commands 
were  mnemonically  indicative  of  the  action  performed. 

Cursor  positioning  was  used  on  the  context-oriented 
editors.  NED  allowed  the  editing  of  more  than  one  file  at 
the  same  time#  as  did  UNIX's  Ed.  An  additional  feature 


provided  by  NED  Mas  the  capability  to  oivide  the  screen  up 
into  as  many  as  ten  completely  separate  ana  independent 
edit  areas. 

Of  the  formatters  surveyed#  PRO  and  NPQFF  were 
non-i nt erac t i ve  Mhile  wPS-8  Mas  interactive.  PPO  is  used 
as  a  post -processor  for  files  edited  Mith  TED#  and  provides 
many  formatting  features  including  footnoting.  NROFF  and 
WPS-8  provide  almost  any  formatting  feature  ever  thouqht 
of.  Commands  Mere  Generally  two  letters  in  all  three 
systems  and  frequently  had  numeric  arguments.  NROFF  and 
TED  are  sometimes  time-consuming  to  use  because  of  their 
non-interactive  nature  and  the  user’s  failure  to  correctly 
visualize  command  results. 

D.  CONCLUSIONS 

This  chapter  has  provided  a  brief  survey  of  the 
state-of-the-art  in  text  processing.  The  evolution  of  text 
orocessina  over  the  last  ten  or  so  years  has  been  traced. 
Non-interactive#  hardcooy  systems  have  been  replaced  with 
interactive#  softcooy  or  CRT-based  systems.  Line- 
orientation  has  been  reolaced  by  context -or i ent at i on .  In 
the  oast#  editors  and  formatters  were  separate  systems  but 
now  they  are  fully  integrated  into  a  comprehensive  text 
processing  system.  Special  hardware#  terminals  and  micro- 
and  mini-based  stand-alone  sytems#  have  been  developed  and 
are  quite  common.  Not  only  do  the  text  processing  systems 
of  today  perform  editing  and  formatting  duties  but  they  are 
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also  capable  of  performing  a  wide  ranqe  of  other  functions# 
such  as  system  bookkeeping  and  data  processing.  Multi* 
functional  te*t  processing  has  become  an  integral  part  of 
today’s  automated  office. 


III.  DESIGN  METHODOLOGY 


A.  PRODUCT  DEFINITION 

Before  any  desian  could  be  contemol ated#  the  final 
produc t  had  to  be  envisioned  and  defined  from  a  user's 
point  of  view.  The  product  of  this  effort  is  an 
integrated#  interactive#  sc reen-or i ented  text  processing 
system.  SCOPE,  Sc reen-Or i ent ed  Processor  and  Editor# 
performs  the  previously  defined  functions  of  both  a  text 
editor  and  formatter.  It  is  implemented  on  the  existing 
PDP-11  mainframe#  using  existing  terminals  and  software. 
SCOPE  is  general -purpose  and  is  not  intended  to  perform 
graohics  or  uncommon  formatting  functions#  e.g.  the 
generation  of  two  columns  of  text  necessary  for  some 
publications.  Thesis  preparation  was  a  consideration  in 
the  selection  of  desired  formatting  features. 

From  the  ten  NPS  systems  reviewed#  the  followina  were 
chosen  as  models  for  this  thesis: 

(1)  the  Vi  Interactive  Oisolay  Editor# 

(2)  the  UC SO  PASCAL  Screen-Oriented  Editor# 

(3)  the  text  editor  TED#  and 

(<1)  the  text  processor  PRO. 

In  addition#  a  UCSD  PASCAL  Formatter#  written  by  the 
author#  served  as  a  model. 
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The  goals#  the  design  and  the  development  process  of 
SCOPE  will  he  discussed  in  the  remainder  of  this  chapter. 

8.  DESIGN  GOALS 

Further  research  was  undertaken  to  determine  the 
elements  of  a  good  design.  The  following  paragraphs  detail 
desiqn  qoals#  set  for  other  design  and  implementation 
projects#  that  were  applicable  to  this  system.  These 
references#  "Overview  of  the  Functional  Features  and 
Software  Design  for  a  Display  Word  Processor"  ( 1  a  1  ; 
Kernighan  and  Plauoher's  chapters  on  editina  and  formatting 
[151#  "Text  Handling  in  an  Automated  Office”  1171?  and 
"Development  of  an  Experimental  Display  Word  Processor  for 
Office  Ago  1 i cat i ons"  [1SJ#  served  as  the  basic  source 
documents . 

In  SOFTWARE  TOOLS  (151#  Kernighan  and  Plaugher  discuss 
editing  and  formatting  design  factors.  The  following 
points  were  made  in  their  discussion.  Human  enaineerinq 
(the  analysis  of  man's  habits  and  work  patterns  in  the 
attempt  to  optimize  the  man-machine  interface)  consider¬ 
ations  are  identified  as  the  primary  desion  factor.  For 
this  reason#  an  interactive  system  has  streamlined  and 
terse  communications  with  the  user  and  is  easy-to-use. 
Experienced  users  were  found  to  prefer  concise  commands  so 
brevity  and  mnemonic  value  are  c oun t e rba 1 anced .  They 
recommend  that  most  formatting  occur  automatically.  Error 
recovery  is  identified  as  the  second  major  design  factor 


and  briefly  described.  The  system  cannot  quit  when  a  user 
enters  an  erroneous  command  but  must  recover  gracefully. 
Valuable  information  must  be  protected  from  loss  due  to 
user  error.  Reliability  is  identified  as  another  important 
factor.  Also#  the  design  must  be  wel 1 -organ i zed  because  of 
the  size  of  the  program.  A  flexible  design  is  desired  to 
allow  for  enhancements  of  more  advanced  features. 

"Development  of  an  Experimental  Display  rtord  Processor 
for  Office  Applications"  (161  furnished  the  following 
design  information.  This  software  design  was  heavily 
influenced  by  cons i dera t i ons  of  response#  ease-of-use  and 
extensibility.  A  key  objective  in  the  desiqn  was  to 
emulate  the  typewriter  in  order  that  the  user  could 
instantly  and  accurately  be  shown  the  status  of  the 
document  being  edited  or  formatted.  Minimization  of 
operator  fatigue  was  considered  to  be  an  important  factor. 
Displays  were  used  to  simplify  the  user's  job  and  the  'soft 
copy'  eliminated  the  sluqaish  response  of  a  hardcopy 
terminal.  Unlike  'blind'  systems  where  the  operator  must 
keen  a  mental  image  of  the  desired  fininished  output  and 
maintain  knowledge  of  the  location  of  material  in  order  to 
edit  or  format#  this  display-based  system  performed  these 
activities  for  the  operator.  The  results  of  keyboard 
editing  and  formatting  actions  were  instantaneously 
disolayed.  The  keyboard  and  the  soft  copy  provided  by  the 
display  served  as  the  primary  interface  for  user/system 
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dialoaue.  User  error  mss  reduced  by  di f f erent i at i nq 
between  text  and  command  inout.  Althouah  the  command 
repertoire  was  extensive#  users  were  found  to  relv  upon 
only  a  few  basic  commands. 

In  addition  to  the  factors  mentioned  in  the  previous 
paraqraoh#  "Overview  of  the  Functional  Features  ana 
Software  Desiqn  for  a  Display  word  Processor"  tl4J 
discussed  further  efforts  made  to  aid  the  user.  Informa¬ 
tion  on  the  CRT  requiring  operator  interaction  was 
disolayed  using  menus.  A  message  area#  "status  and  alarm 
area"#  was  used  to  display  messages  to  the  user  which 
indicated  the  current  command#  system  status  and  error 
conditions.  The  HELP  disolay  provided  information 
pertaining  to  the  user's  current  state#  e.g.  current  valid 
commands . 

"Text  Handling  in  an  Automated  Office"  1171  exoressed 
the  design  views  found  in  the  following  paragraohs.  The 
design  aims  in  this  project  were  to  achieve  a  good  human 
interface  and  an  efficient  implementation.  A  good  human 
interface  meant  that  the  system  was  easy-to-use  ana 
easy-to-l earn  and  could  be  basically  described  as  'friendly 
and  forgiving'.  An  efficient  implementation  meant  that  the 
provided  services  were  adaptable  (easily  modified  or 
expanded)#  many  concurrent  users  could  be  supoorted  and 
machine  resources  were  utilized  efficiently.  Emphasis  was 
placed  upon  streamlining  the  human  interface#  makina 
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services  adaptable  to  changing  requirements  and  utilizing 
comouter  resources  efficiently. 

Features  that  enhanced  the  human  interface  were  a 
unified  command  structure#  a  message  area  and  a  uniform 
mechanism  to  store  and  display  text.  A  good  human 
interface  was  achieved  when  actions  common  to  different 
services  were  initiated  by  the  same  commands.  Full-word 
wraparound  and  rudimentary  text  formattinq#  such  as  default 
margin  settings#  double  spacing,  etc.#  to  make  the  text 
more  readaole#  were  provided  during  text  insertion  to 
improve  the  human  interface.  Full-word  wraoaround 
automat i cal  1 y  forces  a  word  which  would  extend  into  the 
right  margin  to  be  moved  to  the  next  line  down.  The 
message  area  was  set  aside  for  command  entry#  i.e.  to 
disolay  and  edit  commands  during  their  composition;  error 
messages#  machine  status;  etc.  It  was  protected#  i.e.  no 
user  services  could  be  invoked  in  it.  The  cursor  served  as 
the  pointer  to  the  text  being  edited.  Commands  for  movinq 
the  cursor  and  positioning  the  text  window#  i.e.  the  block 
of  text  currently  disolayed  in  the  screen#  were  uniform 
across  all  services. 

Efficient  utilization  of  computer  resources  was 
obtained  by  storing  as  little  information  about  the  screen 
as  possible#  avoiding  duplication  of  code  and  minimizing 
the  communication  between  screen  and  the  computer.  This 
system  avoided  duplication  of  executable  code  by  unifying 
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the  various  constructs#  operations  and  data  structures 
common  to  a  number  of  services  and  implemented  them  as  a 
common  oool  of  subroutines.  In  addition#  each  service  had 
its  own  special  purpose  routines.  This  design  strategy 
made  code  more  compact#  but  also--even  more  importantly* 
made  the  the  system  more  adaptable.  Existing  services 
could  be  modified  by  adding  new  special  purpose  routines  or 
bv  enhancina  the  common  routines.  The  same  commands  in 
each  service  performed  a  common  action  making  the  user’s 
job  much  easier. 

based  on  these  observations#  the  foliowina  design  goals 
for  the  SCOPE  system  were  set  to  achieve  a  friendly# 
forgiving  and  easv-to-use  system: 

1.  to  utilize  the  display  or  screen  as  the 
editing  and  formatting  vehicle# 

2.  to  provide  extensive  er ro r-chec k i ng  and 
graceful  error  recovery# 

3.  to  develop  a  uniform  command  structure  of 
brief  mnemonic  commands# 

to  incorporate  a  display  message  area  for 
system-user  communications# 

5.  to  assist  the  user  through  the  presentation  of 
menus  and  a  current  command  status  display# 

6.  to  develop  a  reliable  program# 
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7.  to  facilitate  proaram  adaotability  and 
maintainabi 1  i  ty* 

8.  to  utilize  computer  resources  efficiently* 
and  in  addition* 

9.  to  orovide  hardware  independence  in  the  use  of 
printers  and  terminals*  i.e.  to  specifically 
eliminate  the  requirement  for  specialized 
hardware . 

The  overall  SCOPE  design  is  simple  and  st rai ght f orward. 
Program  reliability  and  maintainability  were  much  more 
important  than  the  cons i derat i ons  of  speed  and  storage. 

This  does  not  mean*  however*  that  processor  and  storage 
resources  were  inefficiently  utilized.  Tradeoff  decisions 
durina  the  design  process  were  made  in  line  with  the 
following  list  of  oriorities*  in  order  of  importance* 
ease-of -use*  orogram  reliability*  proaram  maintainability 
and  finally  efficient  utilization  of  machine  resources. 

C.  THE  DESIGN  PROCESS 

The  design  process  proceeded  in  phases.  It  was 
iterative  and  incremental  in  nature.  The  initial  phase 
dealt  with  the  consideration  of  terminal  characteristics. 
Phase  Two  defined  the  overall  system  structure  and 
capabilities.  Subsequent  phases  dealt  with  the  definition 
of  new  features  and  sometimes  with  the  redefinition  and 
enhancement  of  existing  ones. 
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1 .  Terminal  Charac t er i s t i c s 


The  first  step  in  realizing  the  desired  product  was 
the  consideration  and  selection  of  a  minimum  set  of 
terminal  characteristics  necessary  for  a 
screen-ori entat i on.  Only  CRT*eauipped  terminals  were 
considered  for  this  reason.  Soec i f i ca 1 1 y *  two  dumb 
terminals*  the  ADM-3A  Cl)  and  the  DM-1520  181*  were  studied 
oecause  they  were  used  in  the  implementation.  In  addition* 
the  DM-2500  (9]  Mas  considered  to  add  a  greater  degree  of 
genera  1 i zat i on  and  hardware  independence.  Ideally*  the 
terminal  used  would  have  an  extensive  keyboard  with  many 
special  function  keys*  e.g.  delete*  insert*  etc.*  and  a  CRT 
screen  large  enough  to  display  a  full  page  of  output  text 
at  one  time.  This  system*  however*  is  not  intended  to  run 
on  the  ideal  terminal  but  on  a  large  number  of  widely 
available  dumb  and  intelligent  terminals. 

To  achieve  the  previously  mentioned  design  aoals  of 
generality  and  hardware  independence*  the  terminal 
characteristics  chosen  for  inclusion  in  the  minimum 
required  set  are  present  on  most  dumb  terminals.  The 
following  terminal  characteristics  are  necessary  for 
successful  implementation  of  this  project: 

a.  standard  ASCII  character  set  (upper  and  lower 
case#  numerals  and  punctuation  marks)* 
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b.  nondestructive  cursor  movement  in  four 
directions  (up,  down,  right  and  left), 

c.  CRT  screen  dimensions  that  allow  the  disolay 
of  1 2  or  more  lines  with  60  or  more  characters 
per  line, 

d.  communication  rate  of  at  least  1200  baud, 

e.  hardware  scrolling  feature  (cursor  movement 
past  the  bottom  line  on  the  screen  causes  all 
all  the  above  lines  to  move  up  one  line), 

f.  absolute  x-y  addressing, 

g.  clear  screen, 

h.  carriage  return, 

i.  bell  (used  to  alert  user  when  an  error  is 
encountered),  and 

4 •  control  code  generation. 

Uoon  entry  into  the  system,  the  user  will  indicate 
which  terminal  type  is  being  used.  The  system  will  then 
make  the  necessary  ASCII  code  assignments  to  variables 
holding  the  codes  for  such  display  functions  as  clearinq 
the  screen  or  moving  the  cursor  non-dest ruct i vel y  to  the 
right.  In  addition,  the  user  will  indicate  the  printer 
type  to  be  used  for  the  generation  of  hardcopy  output. 

2.  SCOPE  Features 

The  next  chase  in  the  design  process  was  spent 
defining  tne  features  or  caoabilities  to  be  included  in 


SCOPE.  The  tent  processing  systems  reviewed  in  section 
II. 0.  were  the  sources  tor  the  chosen  features.  Each  major 
feature  is  listed  and  briefly  described  in  this  section. 

For  purooses  of  clarity#  the  features  to  be  included  in  the 
SCOPE  design  are  grouped  into  si*  categories. 

a.  F i 1 e-Handl i ng 

SCOPE  needed  to  be  able  to  create  new  files# 
save  files  and  access  previously  saved  files.  A  hardcopy 
printout  of  the  processed  document  should  be  readily 
available  and  may  or  may  not  be  produced  directly  on  the 
printer.  A  listing  file  may  be  created  and  sent  directly 
to  the  orinter  or  saved  in  storage  for  multiple  hardcopy 
production  at  the  user's  discretion.  SCOPE  generated  files 
are  incompatible  with  other  UNIX  editors  and  formatters  due 
to  embedded  format  commands.  For  this  reason#  SCOPE  should 
allow  the  user  to  put  files  together  in  various  ways  within 
the  buffer  and  to  write  out  partial  buffer  contents  as  a 
file.  Any  SCOPE  file  may  be  added  at  any  location  within 
the  buffer  as  long  as  there  is  enough  space  in  the  buffer. 
In  addition#  any  segment  of  text  in  the  buffer  may  be 
copied  out  and  saved  as  another  separate  SCOPE  file.  These 
two  features  should  facilitate  the  "cut  and  paste"  aspects 
of  document  reorgan i zat i on . 

b.  Screen-Orientation 

SCOPE  should  be  a  screen-or i ented  or 
disolay-based  system.  The  screen  will  provide  the  user 
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with  a  'soft  cooy'  of  the  finished  document.  The  visual 
display  will  serve  as  the  edifinq  and  formattinq  vehicle. 
The  user  should  be  made  immediately  aware  of  the  results  of 
any  editing  or  formatting  commands.  No  guesswork  should  be 
involved.  A  sc reen-or i entat i on  should  take  advantage  of 
the  visual  nature  of  the  editina  and  formatting  process. 

Cursor  positioning  will  determine  the  text 
displayed  to  the  user  in  the  text  window  on  the  screen  and 
will  pinpoint  the  location  of  most  command  actions.  A 
reasonably  fast  system  response  is  required  to  maintain  the 
correspondence  between  the  user's  commands  and  the  cursor 
movement.  A  slow  response#  typical  of  a  busy  timesharing 
system#  disrupts  this  correspondence  so  that  user  entries 
appear  to  be  ignored  by  the  system  thereby  confusing  the 
user  and  causing  him  to  introduce  errors  by  duplicating 
entries  and  receive  unwanted  results. 

Cursor  movement  should  occur  in  one  of  four 
directions  at  a  time#  right  and  down  for  forward  movement# 
and  left  and  uo  for  backward  movement  through  the  text. 
Movement  of  the  cursor  should  proceed  a  character  at  a  time 
or  a  line  at  a  time.  Wraparound  from  the  end  of  a  line  to 
the  beginning  of  the  next  when  goinq  forward#  or  from  the 
beginning  of  a  line  to  the  end  of  the  previous  one  when 
going  backward  should  be  provided.  A  carriage  return 
should  place  the  user  at  the  first  character  of  the  next 
line  down.  Other  commands  should  be  available  to  soeed 
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movement  through  the  text  bv  scrolling  through  the  text  a 


screenful  of  lines  at  a  time  or  a  oage  of  lines  at  a  time# 
where  a  cage  reflects  the  hardcopy  oaqe  lenqth.  Context 
should  be  maintained  during  rapid  movement  through  the  file 
bv  overlapping  or  repeating  a  few  lines  from  the  last 
screen  display  of  text  when  scrolling  a  screen  at  a  time* 

No  overlap  need  occur  when  paging  through  the  text.  In 
addition,  the  user  should  be  able  to  lump  to  the  beginning 
or  end  of  the  file  upon  command. 

c.  System-User  Communications 

SCOPE  should  be  an  interactive  text  processing 
system.  The  screen  should  be  the  primary  interface  for 
svstem/user  dialogue.  8einq  interactive#  system  response 
time  will  be  a  major  determining  factor  in  SCOPE'S  success. 

The  user  will  reouire  i ns t ant aneous  echoing  of  his  input 
for  verification  purposes  ang  should  be  able  to  make 
correc-  tions  by  erasing  input  characters.  System-user 
communications  are  not  minimized  in  this  design  because 
many  SCOPE  operators  will  be  casual  users.  Such  users  will 
not  want  to  spend  a  lot  of  time  relearning  the  system. 

A  message  area  will  be  a  specially  defined-area 
on  the  screen  for  the  input  and  display  of  user  commands# 
the  display  of  error  messages#  the  display  of  current 
command  status#  i  .e.  which  commands  are  currently  available 
to  the  user#  and  the  display  of  prompts  and  menus.  This 
message  area  should  be  protected  from  other  system  features 
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except  in  the  case  of  the  terminal's  hardware  scrolling. 

The  user  should  be  coached  during  a  SCOPE  session  through 
the  use  of  menus  describing  the  available  options  and 
prompts  describing  the  command  action  and  how  it  is 
i n i t i at ed. 

There  should  be  a  uniform  command  structure  of 
short  mnemonic  commands.  The  same  command  should  cause  the 
same  action  across  the  orovided  services,  e.y.  a  'q'  will 
allow  the  user  to  exit  or  quit  any  service.  A  relatively 
small  set  of  oowerful  commands  should  be  available*  Text 
input  and  command  input  should  be  differentiated  for  the 
user.  It  is  important  to  keep  the  user  informed  of 
processing  actions  not  apparent  to  him,  e.g.  writing  of  a 
file,  by  siqnalina  their  successful  or  unsuccessful 
completion.  System  messages  to  the  user  should  be 
conversational  in  tone  and  under st andab 1 e .  A  cryptic 
message  only  serves  to  confuse  and  alienate  the  user  and  to 
introduce  error. 

d.  Error  Handling  and  Recovery 

SCOPE  should  attempt  to  prevent  user  error  as 
much  as  possible  by  providing  extensive  error-checki ng.  As 
mentioned  previously,  slow  response  time  will  increase  user 
input  error  as  typographic  errors  become  more  frequent. 

User  command  and  text  input  should  be  carefully  screened  to 
recognize  invalid  commands  or  nontext  characters  as  soon  as 
possible.  However,  since  all  user  errors  cannot  be 
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ant i c i oated*  the  design  of  the  system  should  attempt  to 


minimize  the  impact  of  those  that  do  occur.  In  general* 
error  handling  should  consist  of  providing  the  user  with  a 
descriptive  error  message*  forcing  active  user  recognition 
of  the  error  condition  and  finally  re-Drompting  to  provide 
information  about  valid  command  options  available.  Grace* 
fulerror  recovery  should  oe  attempted  and  accomplished 
except  in  the  case  of  a  catastrophic  error  occuring  to  the 
base  system.  The  user  should  be  protected  from  the  loss  of 
text  by  requiring  positive  confirmation  of  its  deletion  or 
the  provision  of  backup  files, 
e.  Editing 

SCOPE  should  provide  editing  features  to 
facilitate  the  composition  of  documents  and  proqrams. 

These  editing  features  may  be  invoked  aurinq  initial 
creation  or  after  creation  and  storage.  During  the  editing 
session*  the  user  should  be  able  to  move  the  cursor  or 
issue  scrolling  commands  for  forward  and  backward  movement 
through  the  text  to  pinooint  the  location  of  the  edit 
action.  A  standard/  default  set  of  formatting 
spec i f i cat i ons  should  be  in  effect  unless  the  user  sets 
other  specifications.  The  following  list  of  specific 
features  should  be  available  through  the  SCOPE  editor. 

-  Insert--shoul d  allow  the  user  to  add  text  to 
the  buffer  before  the  character  at  the  cursor.  Input  text 
should  be  screened  for  invalid  entries  and  displayed  on 


the  screen.  The  user  should  be  abe  to  erase  input 


characters.  If  the  text  is  being  filled*  automatic 
full-word  wraoaround  should  be  provided  at  the  end  of  the 
line.  User  acceptance  or  rejection  should  determine 
whether  the  added  text  remains  in  the  buffer.  The  user 
should  be  protected  from  buffer  overflow. 

-  Oe 1 ete--shou i d  allow  the  user  to  remove 
text  from  the  buffer.  A  character  or  an  entire  line  may  be 
deleted  at  a  time.  Cursor  movement  should  indicate  where 
the  deletion  occurs.  Uo  or  down  movement  should  delete  a 
line*  while  right  or  left  movement  deletes  a  character. 

The  direction  of  deletion,  forward  or  backward*  should  be 
consistent  during  the  deletion  process.  Contradictory 
cursor  movement  should  cause  the  last  deleteo  line  or 
character  to  be  restored  to  the  screen  and  in  effect  negate 
the  deletion  process.  Actual  removal /del et i on  of  the  text 
should  only  occur  within  the  buffer  upon  positive  user 
conf i rmat i on  .  Until  this  conf i rmat i on*  the  text  will  only 
"appear"  to  oe  deleted  on  the  screen. 

-  Locate--shoul d  allow  the  user  to  pinpoint 
the  first  location  of  a  specified  pattern  or  string  of 
characters  if  it  occurs  within  the  text.  This  alobal 
search  should  begin  at  the  current  cursor  position  and 
proceed  in  a  forward  direction.  Only  a  successful  search 
will  reset  the  cursor  position  to  the  beginning  of  the 
"located"  pattern.  In  the  event  of  an  unsuccessful  search* 
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the  cursor  and  the  text  window  remain  unchanged. 

-  Peol ace--shou 1 d  allow  the  user  to  substitute 
one  string  of  characters  for  another  reaardless  of  their 
respective  lengths  at  every  occurrence  of  the  target  within 
the  remainder  of  the  text.  This  global  substitution  should 
begin  at  the  current  cursor  position  and  proceed  in  a 
forward  direction  only.  The  user  should  be  protected  from 
buffer  overflow. 

-  Exchanae--shoul d  allow  the  user  to 
substitute  one  string  of  characters  for  another  of  the  same 
length  at  the  current  cursor  Position.  As  the  cursor  moves 
forward  the  user  input  character  will  overwrite  the 
existing  buffer  contents. 

-  Copy--should  allow  the  user  to  duplicate 
parts  of  text  within  the  buffer.  The  user  should  be  able 
to  delimit  the  material  to  be  duplicated  and  position  the 
cursor  at  its  new  location.  Copied  text  should  be  placed 
in  front  of  the  character  at  the  cursor.  The  user  is 
protected  from  buffer  overflow. 

-  ^ove--shou 1 d  allow  the  user  to  reposition  a 
segment  of  text  within  the  buffer.  The  user  should  be  aole 
to  delimit  the  text  to  be  moved  and  position  the  cursor  at 
its  new  location.  The  delimited  text  should  be  placed  in 
front  of  the  character  at  the  cursor. 

-  Ex t rac t -*shou 1 d  allow  the  user  to  write  out 
a  portion  of  the  text  to  another  SCOPE  file.  The  user  will 
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delimit  the  body  of  te*f  to  be  coDied  to  another  file  and 
then  initiate  the  process.  The  original  text  should  remain 
unaffected  in  the  buffer. 

-  Add--should  allow  the  user  to  add  another 
SCOPE  file  to  the  contents  of  the  buffer.  The  cursor 
position  will  indicate  the  position  of  the  addition.  The 
new  text  is  placed  before  the  character  at  the  cursor.  The 
user  should  be  protected  from  buffer  overflow. 

f .  Format  t i no 

SCOPE  should  provide  formatting  features  to 
improve  the  final  document  or  proaram's  appearance  and 
thereby  increase  its  readability.  The  formatting  features 
in  the  design  were  principally  determined  by  the 
requirements  of  thesis  preparation.  During  the  formatting 
session,  the  cursor  should  mark  the  position  of  the 
formatting  action.  Formatting  specifications  may  be  set 
before  text  creation  and  can  be  modified  at  any  time.  The 
formatting  specifics-  tions  should  be  in  effect  from  their 
initial  setting/entry  point  until  changed  or  nullified. 

Most  formatting  will  be  provided  automatically  on  the  basis 
of  a  s t andard/de f au 1 t  set  of  specifications  derived  from 
the  NPS  Thesis  Manual.  The  following  list  of  specific 
features  should  be  available  through  the  SCOPE  formatter. 

-  Margin  Set t i ng--shou 1 0  allow  the  user  to  set 
or  change  the  left*  right,  oaraaraph,  top,  bottom  and  page 
margins  at  any  time. 
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-  Page  Length--shou I d  allow  the  user  to  set  or 
change  the  number  of  lines  that  can  be  written  to  the 
nardcooy  output. 

-  Line  Soac  i  nq—s  hou  1  d  allow  the  user  to  set 
or  chanqe  the  soace  between  lines  of  text.  Sinqle»  double 
and  triole  spacinq  should  be  oroviaed. 

-  Skip  L  i_nes--shou  l  d  allow  the  user  to  add 
extra  spacing  between  lines  by  skipping  a  specified  number 
of  lines  or  writing  a  specified  number  of  blank  lines. 

-  Page  Number i ng-«shou 1 d  allow  the  user  to 
number  or  not  number  the  pages  of  text.  The  user  should 
also  be  able  to  increment  the  page  number  on  a  specific 
page . 

-  Pane  E j ec t --shou 1 d  allow  the  user  to  end  a 
page  at  will  and  skip  to  the  top  of  a  new  page. 

-  Fill--should  allow  the  user  to  put  as  many 
words  as  possible  on  a  line  of  text  and  will  be  the  default 
mode.  Filling  should  not  apply  to  irregular  lines  such  as 
titles  or  running  headers  and  footers. 

-  No  Fil1--should  allow  the  user  to  place 
particular  words  on  a  line  and  create  irregular  lines  of 
text. 

•  Center--shoul d  allow  the  user  to  center  a 
line  of  text . 

-  Right  Just i f v--shoul d  allow  the  user  to 
align  a  line  of  text  along  the  riqht  margin. 


-  Unde r 1 i ne--shou 1 d  allow  the  user  to 
underline  characters  within  the  text.  Punctuation  marks 
should  not  be  underlined. 

-  Ad j us t --shou 1 d  allow  the  user  to  generate 
filled  text  aligned  along  the  right  margin.  Extra  blanks 
will  be  inserted  between  words  to  achieve  this  result. 

-  Indent--shoul d  allow  the  user  to  indent  or 
move  the  text  to  the  riqht  a  specified  number  of  spaces. 

-  Tab--shou!d  allow  the  user  to  set  tab  stops. 

-  Tab  1  e-Handli  nq— s  hou  1  d  allow  the  user  to 
easily  construct  tables  or  columns  of  text  using  the  tab 
key . 

-  T  i  1 1  es— shou  1  d  allow  the  user  to  indicate 
five  different  types  of  titles  or  headers*  first  through 
fourth-order  and  other.  The  system  should  automatically 
format  the  first  through  fourth-order  titles  as  per  the 
thesis  manual*  while  the  other  type  is  centered  on  a  new 
page.  Header  numbering  and  lettering  should  be  considered 
for  oossible  inclusion. 

-  Punninq  Headers  and  Footers--shoul d  allow 
the  user  to  write  a  specified  messaqe  across  the  too  or 
bottom  of  every  page  of  the  document.  The  user  should  also 
be  able  to  specify  where  within  the  too  and  bottom  margin 
the  header  or  footer  is  located. 

-  Paraaraph/No  Paragraoh--shoul d  allow  the 
user  to  define  a  new  paragraph  or  return  the  text  to 


non-paragraoh  status. 

-  Footnote-*shoul d  allow  the  user  to  input  the 
information  to  be  contained  in  the  footnote  which  will  then 
be  automatically  positioned  by  the  system  in  accordance 
with  Thesis  Manual  directions. 

D.  TESTING 

Ease  of  testing  was  an  important  design  consideration. 
An  incremental  approach  should  be  generally  taken  in 
testing.  In  this  method  each  module  is  designed*  coded  and 
tested  by  itself  and  then  added  to  other  tested*  workinq 
modules.  Incremental  testing  greatly  simplifies  debugging 
by  limiting  the  scope  o*  the  errors  encountered.  It  also 
allows  the  discovery  of  logic  and  implementation  errors 
early  enough  to  prevent  their  repetition  in  other  modules 
and  thus  eliminates  the  need  for  major  redesigns  once 
underway. 

Two  debugging  tools  were  designed  to  aid  the  test 
process.  One  tool  was  a  proceaure  which  displayed  the  text 
and  format  commands  within  the  buffer  uoon  the  screen.  The 
second  was  a  program  which  orovided  a  listing  of  the  raw 
file.  Roth  of  these  tools  replace  the  format  commands  with 
special  or  text  characters  to  allow  their  di sol  ay/1 i st i ng 
because  the  control  codes  themselves  are  unprintable  and 
could  generate  unwanted  results*  e.g.  a  form  feed. 


E.  DESIGN  APPRAISAL 

Why  is  the  SCOPE  design  "better"  than  other  existinq 
systems?  A  brief  comparison  of  SCOPE  and  the  reviewed 
systems  highlights  the  critical  differences.  SCOPE'S 
integrated  editor  and  formatter  concept  is  superior  to 
separate  editor  and  formatter  packages*  like  TED  and  PRO  or 
Ed  and  NROFF,  because  the  user  performs  both  editing  and 
formatting  while  executing  a  single  system.  Because  of  its 
interactive  nature*  SCOPE  is  easier  and  faster  to  use  than 
NROFF  or  PRO.  A  user  can,  with  SCOPE*  change  a  format 
specification  and  immediately  see  the  results  rather  than 
having  to  visualize  them.  It  is  no  longer  necessary  to 
produce  a  listing  or  a  display  in  a  separate  process  for 
verification  purposes. 

SCOPE  provides  more  extensive  formatting  features  than 
are  available  in  NED*  Vi,  or  the  UCSD  PASCAL  editor*  and 
suPDorts  these  features  with  on-line  user  aids.  The  user 
assistance  provided  by  SCOPE  is  more  comprehensive  than 
that  of  any  of  the  reviewed  systems.  The  conversational 
prompts  and  error  messages  coach  the  user  through  the  text 
creation  process.  The  learning  curve  for  effective  system 
utilization  is  significantly  reduced  for  the  casual  users* 
who  should  be  able  to  ooerate  SCOPE  with  a  minimum  of 
external  documentation. 

SCOPE'S  limited  and  simole*  yet  powerful*  command 
structure  is  designed  to  be  less  confusing  to  the  user  than 


many  of  the  others  have  proven  to  be.  The  mnemonic 


commands  are  intended  to  be  easier  to  understand,  remember 
and  to  use  than  those  of  earlier  systems. 

Finally#  unlike  NED  and  rtPS-8#  SCOPE  does  not  require  a 
special  terminal  with  specialized  function  keys  and/or  an 
enlarged  CRT  screen  but  can  be  used  on  a  wide  range  of  dumb 
and  intellignt  terminals. 

In  conclusion#  the  SCOPE  design  is  a  "better"  design 
because  it  attempts  to  incorporate  the  most  attractive 
features  of  the  reviewed  systems  while  avoiding  the 
limiting  aspects  of  earlier  systems. 
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IV.  IMPLEMENTATION 


This  section  provides  aeneral  information  about  the 
SCOPE  svstem.  Proaram  details  mav  be  obtained  from  the 
proaram  listing  (Aooendix  B)  provided.  The  listing  also 
provides  system  documentation.  An  initat  introduction  to 
the  system  is  provided  along  with  compilation  and  execution 
instructions.  A  list  of  abbreviations  used  throughout  the 
program  is  included.  Each  f unc t i on/procedure  is  briefly 
described  in  the  program.  Mnemonic  names*  modularity* 
s t ra i gh t f orward  loaic  and  code  as  well  as  appropriate 
comments  facilitate  proaram  unders t andi ng.  Each 
f unc t i on/procedure  is  short  enough  to  appear  on  one  cage. 
Indentation  and  the  PASCAL  keywords  aid  in  the  tracking  of 
proaram  flow.  Finally*  most  variables  within  the  SCOPE 
program  are  global  in  nature. 

The  SCOPE  implementation  presented  here  is  character* 
i zed  by  its  isolation  of  implementation  details  and  its 
modularity.  The  isolation  of  as  much  as  possible  of  the 
actual  implementation  from  the  program  as  a  whole  is 
recommended  by  Plauoher  and  Kernighan  1151.  This 
recommended  technigue  facilitates  the  optimization  process 
or  the  selection  of  a  new  strategy  because  the  desired 
result  can  be  obtained  by  simply  altering  low  level  buffer 
management  routines.  The  second  attribute  of  this 
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i mo  1 e«en t at t on #  its  modularity#  is  recommended  by  Sharma  in 
1171.  Modu1arity  makes  the  provided  services  more  adapt¬ 
able  to  changing  reaui rement s .  There  is  a  common  pool  of 
genera  1 -purpose  subroutines  that  are  called  by  many  of  the 
services  as  well  as  spec i a  1 -purpose  routines. 

Ourinq  the  i mo l ement at i on  process  the  UNIX  system 
provided  two  handicaps.  The  first  difficulty  was  the  slow 
resoonse  time.  UNIX  suffers  measurable  degradation 
whenever  qraph i c s-re 1  a t ed  oroqrams  are  executed  and/or 
multiple  users  are  on  the  system.  The  second  difficulty 
had  to  do  with  the  special  terminal  conditions  under  which 
SCOPE  operates#  which  are  explained  in  section  0.  These 
conditions  were  a  nuisance  when  tryina  to  execute  commands 
and  programs  outside  of  SCOPE.  The  freouent  and  necessary 
chanqes  of  the  terminal  conditions  were  not  only 
inconvenient  but  tended  to  increase  user  error. 

A.  PROGRAMMING  LANGUAGE  SELECTION 

An  i moo r t an t  consideration  in  the  system  implementation 
effort  was  the  selection  of  a  suitable  programmina 
language.  A  high  level  language  was  sought.  Desirable 
features  included  structured  constructs#  flexible  and 
extensive  data  structures#  and  extensive  er ror-check i ng  and 
diagnostic  facilities.  In  addition#  the  1 anguaae  had  to  be 
able  to  distinguish  between  every  character  input  at  the 
keyboard--espec i a  1 1 v  control  codes  which  serve  as  commands. 
Secondary  selection  criteria  were  availability 
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(unfortunate! y  the  new  PL/I  compiler  by  Digital  Research 
was  not  available)  and  t ranspor t ab i 1 i t y .  PASCAL  met  all  of 
the  above  mentioned  criteria  and  Mas  chosen.  Specifically* 
the  Berkeley  Version  1.1  C101  PASCAL  implementation  was 

selected  because  of  its  attractive  run-time  options.  A 
PDP-11/50  minicomputer  under  the  UNIX  timesharing  system 
(231  served  as  the  host  computer. 

B.  PROGRAM  LOGTC  ano  structure 

Software  enaineerina  principles  (121  were  applied  in 
developing  the  program  structure.  The  too-down  design 
approach  was  followed.  Major  functions  to  be  performed 
were  analyzed  and  decomposed  into  smaller*  more  easily 
managed  sub f unc t i ons .  Functional  modules  were  designed  to 
be  suboroarams,  i.e.  functions  or  procedures*  and  were 
limited  to  one  oaae.  Ourinq  the  analysis  and  decomposition 
phase*  SOFTWARE  TOOLS  (151  and  Triyono's  thesis  (211 
provided  invaluable  assistance. 

Codinq  and  debuqqinq  were  simplified  and  overall 
proqram  clarity  improved  by  always  selecting  the  simplest 
and  most  straight  forward  technique  to  accomplish  any 
"tricky"  or  complex  actions.  In  addition*  a  single 
prompting  procedure  and  a  separate  error  messaqe  procedure 
were  set  uo  to  centralize  system  commun i ca t i on  with  the 
user.  Finally*  tradeoff  decisions  were  made  whereby 
program  simplicity*  reliability  and  ma i n t a i nab i 1 i t y  were 
considered  more  important  than  speed*  storaae  or  overall 
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C.  DATA  STRUCTURES 

The  Berkeley  version  of  PASCAL  does  not  orovide  string 
manipulations  and  it  does  not  allow  the  readinq  of  strings 
from  text  files.  In  addition,  it  allows  only  scalars** 
integer,  characters,  or  boolean  values  — to  be  oassed  as 
suboroqram  arguments.  Finally,  set  i mpl ementat i on  is  such 
that  sets  may  not  be  declared  as  constants,  nor  do  sets 
defined  to  contain  character  variables  assiqned  using  the 
standard  function  CHR  behave  correctly.  Despite  these 
shortcomings,  data  structure  selection  was  not  a  difficult 
phase.  In  order  to  facilitate  changes  the  actual  data 
structure  is  hidden  from  hiqher  level  modules  by  a  low 
level  buffer  management  function  designed  only  to 
manipulate  the  data  structure. 

within  this  system  there  are  two  principal  data 
structures.  The  first  is  the  "raw"  text  file  as  it  exists 
in  storage  when  not  being  acted  on.  It  is  a  seouence  of 
character  data.  It  consists  of  the  text  characters  and 
format  command/character s .  Integers,  reals,  booleans, 
strinqs  and  unstructured  data  types  may  not  be  included  in 
this  file.  This  file  contains  a  beginning  and  end  of  text 
character  or  marker.  Within  the  text,  the  lines  and  the 
paragraphs  are  set  off  by  a  line  or  paragraph  marker 
respectively.  Although  this  line  orientation  is  not 
strictly  necessary  it  does  simplify  many  operations, 
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part i cu l ar I v  the  mapping  from  screen  to  buffer  exolained  in 
Section  IV. 0.  The  additional  system  overhead  in 
maintaining  these  line  markers  is  a  small  price  to  oav  for 
the  s i mo li f i cat i on .  A  osraqraoh  marker,  once  set  bv  the 
user  does  not  chanqe  its  relative  Position  in  the  text 
unless  the  user  resets/deletes  it.  A  line  marker,  on  the 
other  hand,  may  be  frequently  shifted  if  as  many  words  as 
possible  are  being  placed  in  a  line.  i.e.  filled  text,  or 
text  is  inserted  or  deleted  before  the  line  marker.  Line 
and  oaragraoh  markers  occur  at  the  beainnino  of  a  line  or  a 
paraqraoh . 

The  format  commands,  other  than  markers,  embedded 
within  the  text  indicate  special  processing  that  is  to 
occur  to  the  raw  text  before  display  or  production  of  a 
listing  can  occur.  A  format  command's  ranqe  of  effect  can 
vary  from  only  one  character  to  the  ent i re  file.  If  the 
text  file  is  created  usina  a  non-standard  format,  the 
characters  in  the  file  immediately  followina  the  beiinninq 
of  text  marker  are  arouoed  together  and  called  a  "format 
record".  This  record  only  contains  those  user  format 
specifications  that  differ  from  the  standard  menu  provided. 
It  should  be  noted  that  the  raw  file  is  useless  unless  the 
embedded  format  commands  are  masked  out  and  processed.  The 
standard  PASCAL  (111  procedures  READ  and  WRTTE  and  function 
EOF  (end-of-f i 1 e)  are  used  to  manipulate  data  within  the 
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Soace  usaoe  was  carefully  considered.  The  line  and 
oaraqraoh  markers  and  format  commands  could  add  a 
significant  amount  of  overhead  to  the  system  by  taking  uo 
unnecessary  soace  that  could  be  used  for  text.  This  is  not 
the  Casei  however,  because  most  markers  and  format 
commands,  however,  overlay  what  would  be  a  blank  between 
words.  Extra  blanks  associated  with  indentation, 
tabulation  and  the  end  of  a  line  can  be  eliminated  or 
comoressed.  Within  a  line  two  soaces  followinq  the 
Dunctuation  marks,  •.*,  •*',  and  '?'  will  not  be 

comoressed  because  the  manoinq  is  simelified.  Two 
procedures  PROCESSBUF  and  PBOCESSPAW  eliminate  and  compress 
extra  blanks  as  well  as  insure  that  Punctuation  requiring 
two  soaces  is  followed  by  two  soaces  where  appropriate. 

The  most  intoort«nr  data  Structure  within  the  SCOPE 
system  is  the  text  buffer.  Fiqure  U-l  is  a  diaoram  of  the 
SCOPE  buffer.  Text  and  format  commands,  such  as  om,  reside 
in  this  data  structure  while  underqoina  user  operations. 
This  buffer  is  a  laroe  array  of  characters  of  approximately 
30,000  bytes.  There  are  several  inteaer  pointers  indexing 
this  arrav.  BUF I NDX  is  the  Current  location  of  operation 
within  the  buffer.  INSBEG  and  TN5END  are  pointers  which 
delimit  the  INSFRT  AREA  within  the  buffer.  BtIFL  I M I T  is  the 
last  oosition  in  the  arrav.  CH  is  always  the  current 
character  at  BUFIND*. 
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Movement  throudh  the  huffer  is  accomplished  via  the 
GFTRUFCHAR  (Direction)  function#  except  in  the  INStRT  mode# 
where  Direction  is  tl  for  forward  movement#  0  for  no 
movement#  and  -1  for  backward  movement.  The  text  character 
immediately  oreeedin.q  the  INSREG  location  appears  on  the 
CRT  screen  at  the  cursor.  Movinq  forward#  i.e.  riqht#  down 
or  scrollinq  down#  throuah  the  text  is  performed  in  the 
following  manner: 

GETRUFCHAP ( ♦  1  )  which  means  that 
BUFTNOX  :=  RUFINDX  ♦  1  f 
INSREG  :=  INSREG  ♦  1 ; 

INSFND  :=  INSFNO  ♦  l; 

BUFFER [RUFINDX]  :=  BUFFER f INSENO]  f 
CH  :=  BUFFER  [RUFINDX]  . 

Movina  backward#  i.e.  left#  uo  or  scrolling  up#  throuqh 
the  text  buffer  is  performed  in  this  manner: 

GE TRUFCHAR ( - 1 )  which  means  that 
BUFFER  (INSEND1  :  =  BUFFER fBUF I NDX]  ; 

INSENO  :  =  INSEND  -  If 
BUFTNOX  :  =  BUFTNOX  -  1; 

INSREG  :  =  INSBEG  -  If 
CH  ;  s  RUFFER (BUFIN0X1  . 
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GE TBUFCH AP ( 0  )  allows  the  system  to  re*refer?nce  the 


current  buffer  location.  All  of  the  buffer  pointers  remain 
unchanged.  GETBUFCHAP  cannot  be  used  in  the  INSEPT  MODE 
for  reasons  explained  in  Section  IV. H. 

REAOPArt  handles  the  buffer  initialization  for  both  new 
and  existino  files.  A  file  must  be  read  in  and  initialized 
before  EDIT  or  FORMAT  processing.  Buffer  initialization 
durina  the  creation  of  a  new  file  involves  entering  the 
beginning  and  end  of  text  markers*  entering  an  initial 
paragraph  marker  and  setting  the  INSBEG,  INSEND  and  BUFTNDx 
pointers.  Remember  that  the  current  INS BEG  and  INSEND  are 
empty.  In i t i a  1 i zat i on  for  an  existing  file  is  somewhat 
more  complicated.  First,  the  raw  text  file  is  read  into 
the  buffer  character  by  character  where  the  first  character 
goes  into  the  first  buffer  position,  the  second  in  the 
second  position,  and  so  on.  After  the  file  is  read,  the 
text  must  oe  shifted  so  that  the  INSERT  AREA  is  correctly 
positioned.  The  last  character  read  in  is  moved  to  the 
second  to  the  last  buffer  position,  the  preceding  one  to 
the  third  to  the  last  position,  and  so  on  until  the 
beginning  of  text  (bot)  character  is  reached.  It  is  not 
moved.  The  pointers,  INSREG,  INSEND  and  RUFINDX  are  set 
and  in  this  manner  the  INSERT  AREA  is  defined.  This  INSERT 
AREA  is  the  key  component  within  the  buffer.  Text 
insertion,  deletion,  cooyina  and  movement  is  accomplished 
by  resettina  INS8EG  and  INSEND.  More  details  of  these 

S2 


\ 


operations  may  be  found  in  the  oroqram  listino.  Format 
commands  and  line  and  paraqraoh  markers  within  the  buffer 
are  totally  transparent  to  the  user  who  only  sees  them 
reflected  on  the  screen. 

Several  other  arrays  are  used  within  this  system.  The 
runninq  header  and  footer  lines  are  each  stored  in  an  80 
byte  array  of  characters.  Two  other  arrays,  of  20  inteoers 
each,  are  used  in  the  TABULATION  and  ADJUSTLN  routines. 

The  column  number(s)  of  the  tab  location(s)  is(are)  stored 
in  TABLOCNS.  Similarly,  the  relative  location  of  blanks 
within  a  buffer  line  of  text  are  saved  in  BLKLOCNS.  These 
stored  values  indicate  the  sites  for  the  insertion  of  extra 
blanks  within  the  text  line  to  achieve  riaht  Justification 
with  f i 1 1 i no. 

0.  INPUT/OUTPUT  HANDLING 

The  use  of  a  hiah  level  1 anquaae  such  as  PASCAL 
eliminates  the  messv  details  of  input/outout  (I/O) 
handlina.  T/0  to  and  from  the  screen  is  accomplished 
using  the  standard  PASCAL  READ  and  WRITE  procedures  on  the 
textfiles  INPUT  (keyboard)  and  OUTPUT  (CRT  screen). 

Correct  SCOPE  operation  requires  the  settina  of  certain 
I/O  options  on  the  current  terminal.  The  UNIX  command 
"stty  raw  -echo  nl"  sets  the  necessary  options.  RAW  means 
that  no  erase,  kill,  interrupt  are  EOT  characters  a*'e  in 
effect  and  that  the  parity  bit  is  passed  back.  NL  tells 
the  system  not  to  automatically  generate  a  carriaae  return 
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and  line  *eed  for  a  new  line  and  that  only  a  line  feed  will 
end  a  line.  It  also  prevents  the  use  of  the  READLN  and 
WRITELN  procedures.  -ECHO  prevents  the  system  from  echoina 
back  input  characters  to  the  CRT  screen. 

SCOPE  filters  the  innut  characters  and  selectively 
echoes  back  or  writes  to  the  CRT  screen,  preventing  the 
display  of  unprintable  control  characters.  A  typical  case 
is  the  handlinq  of  cursor  movement  in  which  the  user 
generates  riqht,  left,  upward  or  downward  movement  of  the 
cursor.  INCHAR  is  the  character  read  in  from  the  user. 

In  addition  to  READ  and  WRITE,  the  RESET  and  REWRITE 
procedures  are  used  in  I/O  to  and  from  other  files.  INFILE 
and  OUTFILE  are  text  files  assianed  specific  names  by  the 
user,  e.g.  CHARI. o  and  LISTING. o.  The  *.p'  indicates  a 
PASCAL  file.  RESET  is  used  to  open  existina  files  for 
readinq,  while  REWRTTF  is  used  to  ooen  and  create  a  new 
file.  INFILE  is  used  in  the  readinq  of  raw  text  files  and 
OUTFILE  in  the  savinq  of  raw  files  and  the  production  of 
listings.  READLN  and  WRITELN  cannot  be  used  on  either  of 
these  files  because  the  UNIX  eoln  (end-o f - 1 i ne )  character 
does  not  exist  in  SCOPE  generated  files.  UNIX  writes 
OUTFILE  in  blocks  of  512  bytes.  The  Berkeley  PASCAL 
function  FLUSH  is  reauired  to  dump  the  last  incomplete 
block  of  output  to  the  waiting  file. 
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The  lack  of  sf rinq  nanioulaf ions  causes  all  I/O  to  be 


done  a  character  at  a  time  which  is  somewhat  tedious. 
DTSPLAYLN  oerforms  the  necessary  orocessi nq  to  display  a 
line  of  text  on  the  CRT  screen.  LISTLN  produces  a  line  of 
text  for  a  hardcooy  listinq.  Both  of  these  procedures  call 
routines  which  process  any  embedded  format  commands  and 
only  portray  the  "processed"  text  as  opposed  to  the  "raw" 
text  in  the  buffer.  LUSERINPUT  and  SUSERTNPUT,  for  lonq 
and  short  user  incut  from  the  terminal*  perform  the  READ 
function.  They  allow  the  user  to  enter  a  strinq  of 
characters  with  the  ootion  of  erasinq  any  mistakes  by 
tvoino  a  "control  e"  before  hitting  the  carriaqe  return. 
LUSERINPUT  allows  un  to  1U  characters  to  be  input  and  is 
used  in  the  naminq  of  files.  It  automatically  checks  each 
entry  for  a  '.p'  in  the  name  and  appends  it  where 
necessary.  SUSERTNPUT  allows  up  to  4  characters  to  be 
entered  at  one  time.  Two  procedures  are  used  because 
strinas  must  be  oadded  with  extra  blanks  to  their  full 
declared  length.  The  slow  response  time*  due  to  UNIX 
degradation,  was  a  problem.  Not  only  is  it  disconcerting 
to  be  tvoina  several  words  ahead  of  what  is  being  displayed 
on  the  screen,  but  immediate  error  correction  becomes 
difficult.  It  is  no  lonqer  a  matter  of  simply  erasinq  one 
or  two  characters  that  are  incorrect.  Instead,  the  user 
miaht  have  to  erase  and  lose  several  words  to  get  back  to 
the  error.  In  addition,  during  the  erase  action  when  the 
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cursor  is  movina  backwards  a  delav  can  cause  the  user  to 
inadvertently  erase  more  than  intended. 

Because  only  character  data  is  read  and  written  by  the 
SCOPE  system  there  is  no  way  of  directly  entering  integer 
values  for  such  items  as  oaoe  numbers  or  margin  settings. 
To  overcome  this  deficiency*  CONVRTNUM  transforms  a 
character  number  into  its  eouivalent  integer  value.  Up  to 
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a  three  digit  number  may  be  converted.  It  currently 
handles  only  oosifive  values. 

E.  THE  SCO°E  SYSTEM 

Implementation  oroceeded  in  an  incremental  fashion. 

The  initial  phase  implemented  a  minimum  set  of  system 
features.  The  minimum  set  of  features  allowed  the 
production  of  a  simple  oaoer  but  not  of  this  thesis.  This 
skeletal  system  was  a  barebones  approach  with  many  options 
eliminated*  e.g.  the  basic  formatting  specifications 
setting  up  the  oaoe  layout  (margins*  lines  oer  oaoe  and 
line  soacina)  were  defined  as  constants.  Durina  the 
analysis  of  system  features*  the  basic  system  design 
evolved  into  four  nested  levels  or  modes.  At  the  highest 
or  outermost  level*  i.e.  qlobal  mode*  the  system  reads  or 
writes  files*  edits*  formats  or  leaves  the  SCnPE  system 
based  on  the  input  user  commands.  The  global  mode  (SCOPE 
DRIVER/MAINLINE)  is  the  driver  of  the  entire  system. 

Figure  #*<?  is  a  oseudo  code  represent  at  i  on  of  the  SCOPE 
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The  second  level  consists  of  the  foHowinq  essential 
system  features: 

a.  read  in  an  existina  file  or  create  a  new  filer 

b.  write  the  raw  file  out  to  storaae# 

c .  edi t  the  text  file# 

d.  format  the  text  file  in  a  reasonable  manner# 

e.  oreoare  a  hardcooy  listina  of  the  file#  and 

f.  exit  from  the  system. 

Each  of  the  above  features#  except  system  exit#  is  a 
major  module  within  SCOPE.  Within  this  level  lies  the 
third  level  of  modules  or  subfunctions#  e.q.  IN SEPT  and 
OELETE  for  EDIT.  At  the  innermost  and  lowest  level  are  the 
functions  to  manipulate  the  data  structures  and  other 
support  routines#  e.q.  cursor  movement  and  maopino.  Cursor 
movement  and  maooina  are  kev  modules  which  are  discussed  in 
Section  IV. G.  The  movement  of  the  cursor  on  the  CRT  screen 
must  he  correctly  reflected  in  movement  throuah  the  text 
buffer.  There  must  be  a  one~to~one  correspondence  between 
the  character  at  the  cursor  and  this  character’s  location 
within  the  text  buffer. 

Entry  to  lower  levels#  e.o.  subordinate  modules#  is 
accomplished  by  callinq  the  required  procedure  or  function. 
Return  to  a  higher  level  is  usually  accomplished  via  a 
"quit"  or  "control  a"  command. 
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F.  COMMAND  STRUCTURE 

If  is  i foortant  af  this  point  to  reiterate  the  chief 
design  goal  of  this  s vs  t  em  which  is  to  develop  a  friendly 
and  forgiving  tool.  Users  will  probably  not  be  using  this 
system  on  a  daily  basis  and  so  will  not  be  intimately 
familiar  with  commands.  Such  casual  users  will  not  utilize 
the  system  if  a  lot  of  time  must  be  soent  learning  and 
relearning  the  command  set.  For  this  reason,  it  was 
considered  imperative  to  have  short,  simple. 

easy-to-remember  and  easy-to-use  commands.  The  command  set 
is  also  consistent  throughout  the  different  SCOPE  modes  of 
ooerat i on . 

This  is  an  interactive,  screen-oriented  system  and 
these  features  are  exploited.  Three  lines  at  the  top  of 
the  CRT  screen  are  set  aside  permanently  as  a  messaqe  area 
for  the  display  of  oromots  and  error  messages  and  the  entry 
of  some  user  commands.  Entry  and  exit  from  any  of  the  three 
outer  SCOPE  levels  causes  a  prompt  to  be  generated  in  the 
message  area.  This  oromof  tells  the  user  which  commands 
are  currently  available  to  him  for  execution  and  how  to 
initiate  execution. 

Commands  are  mnemonic  and  one  character  in  lenqth.  The 
command  is  usually  the  first  letter  of  the  action  to  be 
performed.  Some  commands,  e.a.  oaqe  number,  reouire  entry 
of  a  numeric  argument.  Many  commands  are  dependent  upon 
cursor  movement.  In  some  instances  the  control  key  is  used 
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in  conjunction  wi f h  another  character  to  differentiate 
between  a  command  and  a  text  character,  e .  q .  in  the  insert 
mode.  The  EDIT  and  FORMAT  commands  are  described  in  more 
detail  in  sections  IV.H.  IV. I. 

G.  CURSOR  MOVEMENT  AMD  MAPPING 

Establishino  and  maintaining  the  correct  relationship 
between  the  screen  display  and  buffer  was  the  most 
difficult  aspect  of  the  SCOPE  implementation.  There  has  to 
be  a  one-to-one  correspondence  between  the  character  shown 
on  the  screen  and  its  location  within  the  buffer.  Format 
commands  are  transparent  to  the  user  but  must  be  reflected 
on  the  CRT  screen,  e.o.  a  paragraph  marker  is  shown  bv 
indenting  the  line.  Cursor  mapping  is  carried  out  by  the 
MAPCURSOR  function  which  processes  the  format  command  and 
sets  uo  the  screen  display  as  necessary.  SETCURSOR  is 
another  mapping  function  which  comes  into  play  during  the 
scrolling  act i ons. 

There  are  two  methods  of  cursor  movement  available  and 
both  are  presented  in  fiqure  4-3.  Movement  within  a  single 
line  is  fairly  simple  but  wraooina  around  to  the  previous 
line.  or  jumping  multiple  lines  complicates  the  picture 
auickly.  Cursor  movement  is  simplified  by  making  it  a 
line-oriented  process.  STARTLN  and  NEwl.INE  are  key 
functions  in  determining  the  correct  user  line  location. 
GETCHAR  is  used  to  produce  movement  one  character  to  the 


left  or  right.  JMPTQMARKER  allows  the  user  to  jump  to  the 


beqinninq  or  the  end  of  the  currently  active  file.  Further 
details  about  the  cursor  maooinq  and  movement  are  available 
in  the  oroqram  listino. 

H.  EDIT 

EDIT  is  orobablv  the  most  important  module  within  the 
SCOPE  system.  It  is  used  to  move  the  cursor  and  thus  scan 
throuqh  the  body  of  text  as  well  as  to  make  modifications 
to  the  text.  The  EDIT  commands  are  listed  in  Fiqure 
The  uooer  case  letters  are  used  to  allow  the  same  oeqinning 
letter  to  be  used/  e.a.  x  for  xchanqe  and  X  for  Xtractfile. 
In  addition#  the  capitals  indicate  file  manipulations  where 
the  lower-case  commands  only  deal  with  the  buffer.  The  EDIT 
command  modules  closely  follow  the  desion#  with  the 
exception  of  SETMARKEP  which  is  used  by  almost  all  of  the 
other  EOIT  features  to  delimit  the  body  of  text  to  be 
searched#  copied#  moved#  extracted#  etc.  Many  of  the  EDIT 
features  remain  to  be  implemented. 

The  initial  i mol ement at i on  involved  only  INSEPT  and 
DELETE.  INSEPT  adds  text  directly  to  the  buffer  Through 
the  INSEPT  AREA.  Because  GETBUECHAP,  the  low  lnvel  buffer 
management  function  works  on  the  outside  of  the  INSERT 
AREA#  it  can  not  track  the  new  characters  entered  into  the 
INSERT  AREA.  Ail  inserted  and  deleted  text  must  be 
processed  by  PROCESSBIJF  to  ensure  that  the  line  markers  are 
correctly  positioned.  This  processinn  occurs  in  paragraph 
increments  because  a  paragraph  is  the  smallest  text 
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sequent.  Ourinq  the  text  insertion  process*  certain 
formattina  commands  are  entered  directly  by  the  user  into 
the  buffer.  Irreau! ar  lines  durinq  the  fill  mode  must  be 
ended  with  a  break  character.  Titles  may  oe  labeled  at 
this  time.  In  addition#  the  fill#  no  fill#  adjust#  adjust 
off  and  the  tab  commands  may  be  entered. 

Along  with  INSERT  and  DELFTF#  an  XCHANGF  function  was 
set  uo  and  used.  This  allowed  the  reol aceuent  of  many 
strinqs  of  the  same  lenqth.  Because  the  string  is  the  same 
length  durinq  an  XCHAMGF  there  is  no  need  to  orocess  the 
the  modified  text  which  is  more  efficient  then  readinq  and 
processing  at  least  one  paragraph  to  reposition  line 
markers  if  necessary.  Several  users  have  enjoyed  the 
automatic  wraparound  feature  which  speeds  uo  the  input 
process . 

I.  FORMAT 

FORMAT  i mo  1 ement at i on  has  been  limited  to  titles# 
centering#  tabs  and  other  essential  features  for  thesis 
preparation.  The  following  paragraphs  describe  the 
intended  SCOPE  FORMAT  implementation. 

The  Format  mode  can  be  entered  at  any  point  durinq  the 
editing  session  to  chanae  the  outout  spec i f i c a t i ons  .  It 
also  moves  the  cursor  to  scan  the  text#  and  in  addition* 
some  commands  depend  uoon  the  cursor  for  orooer  execution. 
The  user  moves  the  cursor  to  the  position  from  which  the 


format  command  will  begin  to  have  effect#  enters  the 
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correct  format  command  and  is  then  promoted  for  the  correct 
command  arqumenfs.  Formattinq  chanqes  are  immediately 
reflected  on  the  screen  for  user  examination. 

Figure  4-5  outlines  the  FORMAT  command  structure.  User 
commands  are  alohabetic  characters  hut  the  format  commands 
in  the  buffer  are  control  codes.  All  the  format  commands 
were  assianed  control  codes  so  that  they  could  he  easily 
distinguished  from  text  characters.  The  decimal  ASCII  code 
is  the  argument  for  the  PASCAL  CHP  function  which  is  used 
to  assiqn  and  identify  all  the  format  commands  within  the 
buffer.  The  keyboard  control  characters  are  used 
infreauently  by  the  user  during  the  editinq  and  formatting 
process.  Certain  commands#  e.g.  break,  adjust,  adjust  off, 
fill,  no  fill,  Daraoraoh  marker  and  tab  may  be  entered 
directly  by  the  user.  Within  the  buffer,  the  numeric 
arquments  for  any  format  command,  immediately  follow  the 
command  and  are  themselves  followed  bv  a  break  character  so 
that  they  may  be  easily  di st ingui shed  from  text  numerals, 
whenever  possible,  the  input  command  (command  syntax)  is 
mnemonicallv  indicative  of  the  action  to  be  Performed,  e.a. 

'u'  for  underline.  The  slashes  in  certain  commands 
indicate  that  the  command  is  complex,  has  multiple 
arguments  and  that  the  user  will  go  thpouqh  a  series  of 
prompts  during  command  entry.  Margins  are  a  good  example 
in  which  the  user  makes  three  different  entries  to  set  a 

spec ifie  margin.  i 


f>2 


Menus  such  as  those  presented  in  Figures  4-6  and  4-7, 
are  disolayed  uoon  user  request  to  describe  the  current 
outout  soec i f i cat i ons  .  Figure  4-6  will  be  disolayed  unless 
the  user  has  made  some  format  chanqes.  Fiqure  4-7  will  be 
disolayed,  if  any  of  the  default  soec i f i cat i ons  have  been 
al tered. 

J.  WRITE  RAW  FILF 

This  module  is  the  simolest  of  the  main  modules.  It 
writes  out  every  text  character  and  format  command,  except 
a  rubout  character,  within  the  buffer  to  the  user-soec i f i ed 
file.  The  rubout  character  is  used  for  the  deletion  of 
characters  or  soaces  when  it  is  inconvenient  to  manioulate 
the  INSERT  AREA  to  do  so.  In  this  manner  SCOPE  files  are 
saved  for  future  use. 

K.  LIST  PROCESSED  FILES 

Hardcooy  orintouts  or  listings  af  the  text  file  are 
required  whenever  the  screen  display  is  not  adequate,  e.g. 
proofreading  is  often  more  easily  accomplished  on  oaoer. 
This  process  is  hardware  dependent  because  printers  have 
various  drivers,  carriage  control  mechanisms  and 
top-of-form  alianments.  To  provide  some  degree  of  hardware 
independence,  SCOPE  includes  a  procedure  PRINTER  which 
queries  the  user  about  the  printer  and  makes  aoorooriate 
margin  adiustments. 
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The  actual  orint inq  process  is  carried  out  in  two 
steos.  Ip  the  first  step#  the  format  commands  within  the 
buffer  are  processed  and  the  requisite  characters#  e.g. 
blanks  for  marqins  or  carriage  returns  and  line  feeds  for 
line  and  paragraph  markers#  along  with  text  characters  are 
written  to  a  user-soec i f i ed  output  file.  This  output  file 
contains  only  text  characters#  i.e.  blanks#  alphabetic# 
numeric  and  soecial  character  data#  and  carriaqe  returns 
and  line  feeds.  The  second  step  of  the  printinq  process 
must  be  done  outside  of  SCOPE  execution  and  is  accomplished 
using  the  Shell  command  "cat  f i lename.pl  lor"  123],  Unless 
multiple  cooies  are  being  made#  this  method  wastes 
secondary  storage  and  should  be  changed  before  a  production 
status  is  achieved.  A  direct  one-sten  listinq  generation 
i s  more  efficient. 

L.  SCRFEN  DISPLAY  VICE  LISTING 

Although  the  desion  called  for  an  exact  duplicate  of 
the  final  hardcoov  output  on  the  screen,  that  is  not  the 
case  in  this  implementation.  There  were  several  reasons 
for  this  design  departure.  Figure  a-B  is  a  diagram  of  the 
CRT  Screen  Layout.  Since  the  area  of  the  screen  available 
for  the  display  of  text  is  limited  (only  ?1  lines  here)# 
doub 1 e-soac i no  only  allows  the  user  to  see  a  small  segment 
of  text  (11  lines).  Better  use  of  the  screen  occurs  when 
the  text  is  s i no  1 e-soaced  (?1  lines  of  text  are  then 
displayed).  Figures  a-Q  and  a-JO  illustrate  this  point. 


The  screen  depiction  also  does  not  show  adjusted  lines  of 
text.  Maooinq  the  cursor  to  the  buffer  contents  becomes 
much  more  difficult  and  requires  the  maintenance  of 
information  about  each  disolayed  line  if  wraparound  and 
other  features  are  continued  in  their  present  form.  The 
too  and  bottom  marains  which  include  the  runnina  header  and 
footer  and  oaqe  number  do  not  appear  on  the  screen. 

Finally*  the  represent  at i on  of  underlining  is  difficult 
because  the  underline  character  overwrites  the  text 
character  at  the  same  position. 
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FOLLOW-ON  .NO W K  AND  ENHANCEMENTS 


V  . 


Although  the  SCOPF  system  was  used  in  the  production  of 
this  thesis*  more  i mo  1 emen t a t i on  and  testina  must  be 
carried  out  before  the  system  is  ready  for  release  to 
general  users.  The  SCOPE  oroqram  contains  untested  code 
segments*  e.a.  ADJUSTLN.  Several  important  editing 
features  reauire  i mo  1 emen t a t i on  .  The  COPY  feature  has  not 
been  fully  tested.  MOVE  has  not  been  implemented.  The 
COPY,  MOVE  and  XTRACTFILE  features  need  to  carefully  check 
the  format  specifications  in  effect  at  the  original  segment 
location.  This  may  mean  qoina  back  to  the  beainnina  of  the 
file  and  checkinq  all  the  format  commands  between  the 
beginning  and  the  start  of  the  text  being  acted  on.  The 
LOCATE  feature  to  do  oattern  searches  can  be  implemented 
usinq  the  alqorithm  in  reference  C 3 1  .  To  be  successful* 
LOCATE  must  identify  a  oattern  that  has  embedded  format 
commands.  REPLACE  will  use  LOCATE  to  find  the  oatterns  to 
be  replaced. 

Many  of  the  FORMAT  specifications  are  currently  fixed 
within  the  oroqram  and  cannot  be  modified  directly  by  the 
user.  FORMAT  command  sequences  were  designed  but  not 
implemented  for  commands  requiring  arguments.  In  addition, 
t ab 1  e-hand  1 i nq  and  footnote  mechanisms  must  be  completed. 
The  adjusting  of  text  must  be  implemented  for  hardcopy 
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printouts.  Runninq  headers  and  footers  should  be  added. 

Uoon  completion  of  the  i mo  I emen t a t  i  on #  systematic 
testing  of  the  SCOPE  system  should  be  conducted.  A  user- 
oriented  SCOPF  Manual  should  be  be  develooed.  A  UNIX  Shell 
proaram  should  be  develooed  for  system  i n i t i a  1 i za t i on  and 
termination.  This  oroqram  would  handle  the  setting  of  the 
terminal  stty  ootions  and  initiate  execution. 

Once  in  a  production  mode,  "Bugs"  uncovered  by  toe 
users  will  have  to  be  corrected.  Surveys  of  SCOPE  users 
should  be  conducted  to  determine  suggestions  for  stream- 
Jinina  promoting  and  command  sequences/  overcomina  the  most 
common  user  errors#  and  enhancing  the  system.  An 
efficiency  analysis#  usino  profiles#  should  be  conducted  to 
determine  the  most  suitable  areas  of  code  for  optimization. 

This  system  is  intended  for  use  in  the  preparation  of 
programs  as  well  as  documents#  but  so  far  no  work  has  been 
done  in  that  area.  The  format  commands#  beina  control 
codes#  will  have  to  be  masked  out  or  processed  before  a 
SCOPE  file  can  be  used  as  input  to  any  compiler. 

There  are  many  possibilities  for  system  enhancement. 
SETMARKER  could  be  expanded  to  allow  the  user  to  set  other 
markers  within  the  file  to  pinpoint  special  locations.  The 
adjusting  of  text  lines  on  the  screen  and  the  associated 
mapping  to  successfully  handle  the  extra  embedded  blanks 
would  be  a  worthy  project.  Underlining  could  be 
represented  on  the  screen  as  another  line  of  blanks  and 
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characters  underneath  the  required  oostion. 

The  page  concept  on  the  screen  where  the  oaae  marqins 
are  actually  shown  delimited  on  the  screen  with  the  "!" 
character  down  each  side  for  instance  and  the  top  and 
bottom  of  the  Page  indicated  by  dashes  across  the 

screen  could  be  introduced.  In  this  manner  the  screen 
becomes  a  more  exact  copy  of  the  final  output  document. 
Carryi no  this  further,  the  oaae  scrollinq  mechanism  would 
not  only  scroll  throuah  one  hard  cony  eauivalent  of  a  page 
but  allow  the  user  to  request  a  particular  oaae  bv  number. 

An  UNDO  command  allowinq  the  user  to  easily  recover 
from  his  last  action  miqht  be  helpful.  Another  valuable 
feature  would  be  the  provision  of  a  document  index 
containinq  pertinent  information  about  the  document  such  as 
its  title,  date  of  last  uodate,  size,  etc.  This  index 
would  be  readily  accessible  to  the  user  from  the  command 
level.  The  introduction  of  a  macro-orocessina  capability 
would  be  another  possibility  for  enhancement.  Finally, 
common  document  formats  could  oe  stored  as  templates  to  be 
easily  accessible  to  the  user. 

This  design  could  be  implemented  on  other  systems.  The 
INTFL-based  8O80/Z-80  microprocessors  are  prime  candidates 
using  the  new  PL/T  compiler  bv  Diqital  Research.  Another 
candidate  for  SCOPE  implementation  is  the  I3M  svstem 
scheduled  to  be  installed  at  the  rt.  R.  Church  Computer 
Center  in  the  fall  of  1980. 
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VI.  CONCLUSIONS 


The  desiqn  criteria  Tor  a  "better"  text  processing 
system  were  discussed  and  a  desiqn  was  developed.  This 
desiqn  was  based  uoon  an  examination  of  currently  available 
systems  and  a  review  of  the  desiqn  criteria  set  forth  by 
recoqnized  desianers  such  as  Kerniqhan  and  Plauqher  and 
Xerox  personnel.  SCOPE'S  screen  orientation*  interactive 
nature  and  inteoration  of  services  are  the  keys  to  this 
better  desiqn.  The  i mo  1 ement at i on  demonstrates  the 
feasibility  and  value  of  such  a  comprehensive  system.  It 
is  honed  that  the  design  criteria  presented  here  can  serve 
as  a  ouide  in  the  development*  evaluation  and  selection  of 
commercial  text  processing  systems*  as  well  as  presenting  a 
basis  for  the  design  of  new  text,  handling  systems. 


69 


O  X 


APPENDIX  A 


Curso'* 

\ 


1  1  • 

•  1  • 

lb i  : 

nn 

i 

• 

i 

t 

1  1 

•  • 

1  1 

1  • 

1 

• 

1 

1 

1 

1 

1 

« 

1 

1 

1 

1 

1  •  1 

•  »  1 

1  1  » 

t  1  1 

1  1 

•  1 

I  1 

•  1 

1 

1 

• 

• 

1 

1 

i 

9 

1  •  1 

1  1  • 

|e|  I 

!o !  i 

i 

i 

1  1 

1  1 

1 

• 

1 

t 

I 

• 

1  1  1 

1  1  » 

•  1 

>  • 

• 

• 

1 

1 

I  o  '  e  I 

It!  I 

i 

• 

•  1 

•  1 

1 

• 

t 

• 

I 

1 

•  1  t 

•  1  1 

1  1 

•  • 

1 

t 

1 

1 

1 1  I  m  I 

It!  I 

9MH 

• 

• 

1 

• 

1 

1 

•  1  1 

•  1  1 

I  1 
t  1 

1 

1 

1 

1 

lt|m| 

I  c  1  o  I  S 

I  I  INSEPT 

APEA  • 

• 

• 

PIE 

1 

1 

!S|y| 

s  }  t  |  ft 

1  m 

1 

1 

.  I  C  I  0  I 

h  !  m 

» 

• 

• 

1 

• 

1 

•  1  1 

»  1  • 

1  1 

1  1 

1 

t 

1 

1 

5  h  J 1 1 

I  a '  I 

1 

• 

1  • 

1  I 

• 

1 

• 

• 

1 

1 

•  1  1 

1  1  1 

1  1 

1  t 

1 

1 

1 

» 

1  a  I  y  1 

I  r I 

• 

• 

t  1 

1  • 

1 

1 

1 

1 

1 

1 

1  1  » 

1  •  • 

1  1 

•  I 

1 

1 

1 

« 

I  r  I  I 

i  i  i 

•  •  i 

■  ■■Ml 

1 

1 

1  • 

1  t 

• 

• 

• 

• 

• 

1 

1  1  1 

1  •  1 

1  • 

•  1 

• 

1 

1 

1 

9  •  1 

f  1  1 

t  tf  1  t 


e  u  n  n 

a  f  s  s 

i  i  b  e 

n  n  e  n 

n  d  q  d 

X  X 


u 

f 

1 

i 

m 

i 


t 


the  above  buffer  contents  would  aooear  on  the  screen  as 


SCOPE  System. 


where  reoresents  the  cursor  position. 


Eiaure  4-1.  SCOPE  Buffer  Layout 
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beqin  (SCOPE  OP  I VEP/MA I  ML INE } 


initialize  variables* 

terminal  * 

orinter* 

setdef aul ts; 

set  f o  rma t  c rods  » 

c 1 earsc  reen ; 

reoeat 

oromot  '• 

user i nput ( end) * 
if  valid  end  then 
case  cmd  of 

'  e  '  :  edit; 

*  f  * :  format  * 

*  1  * :  1 i storocessed* 

'o' :  stoo  :=  t  rue* 

' r ' !  readr aw  * 

'w';  writeraw* 
end  {case) 

else  (not  a  valid  command) 
er rormsa 
unt i 1  stool 
end . 


Figure  SCOPE  Driver 


Method  T 


Method 


t 


i 


Move  cio  1  line*  stayinq  in  same  column 
or  the  one  closest  to  the  left. 

Move  riqht  1  column*  at  end  of  line  qo 
to  first  char  of  next  line  down. 

Move  down  1  line*  stayinq  in  same  col 
or  the  one  closest  on  the  riqht. 

Move  left  1  column*  if  beginning  of  line 
oo  to  last  char  of  previous  line. 


II 


cr  Move  t0  first  char  of  next  line  down. 

•  U  *  Scrolluo*  move  uo  approximately  3/4's 

of  the  screen  with  S  lines  of  overlap. 
*D'  Scrolldown*  move  down  approximately  3/4's 

of  the  screen  with  5  lines  of  overlap. 
' h  *  Go  to  the  beqinnina  of  the  file. 

'e'  Go  to  the  end  of  the  file. 


Figure  4-3.  Cursor  Movement 
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Command 

Syntax 


Command  Function 


A 

c 

C 

d 

i 

1 

m 

q 

r 

s 

x 

X 


Fiaure 


Add f  i  1  e 
cooy 

Cursor  Movement 

delete 

insert 

locate 

move 

qu  i  t 

reD 1  ace 

setmarker 

exchanqe 

eXt  ract  file 


.  SCOPE  EDIT  Commands 
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Decimal  Command 
ASCII  Syntax 
Code 


Formatting  Command  keyboard 

Lonf  rot 
Code 


t 

a 

Adjust 

A 

2 

b 

Break 

B 

3 

c 

Center  Line 

C 

4 

UNUSED  1UNI*  end  of  file] 

D 

s 

e 

Page  Eject 

E 

6 

f 

Fill 

F 

7 

m/n/4 

Page  Number  Margin 

G 

8 

h/hi f/1 i* »  r /# 

Runninq  Header/Footer 

H 

g 

tab  key 

T  ab 

I 

10 

1 i ne  feed  key 

UNUSED  [UNIX  '  '] 

J 

1  1 

i  /« 

Indent 

* 

12 

1 

Line  SDacinq 

L 

13 

carriaae  return 

Line  Marker 

M 

14 

n/  ♦  ,  « 

Paqe  Number 

N 

IS 

o 

Fill  Off 

0 

16 

control  0 

Paraqraoh  Marker 

P 

17 

m/t  /« 

Too  Margin 

Q 

18 

r 

Riqht  Just i f y  Line 

R 

IP 

s/« 

Sk i o  Lines 

S 

20 

t/« 

Title 

T 

21 

u 

Under  1 i ne 

U 

22 

ava i 1 ab 1 e 

V 

23 

rr/1  /« 

Left  Margin 

d 

24 

X 

Adjust  Off 

X 

25 

control  V 

Beginning  of  text  Marker 

Y 

26 

control  t 

End  of  text  Marker 

Z 

27 

b 

Begin  Delimiter  Marker 

f 

28 

n/b/4 

Bottom  Margin 

\ 

29 

e 

End  Delimiter  Marker 

1 

30 

m /  r/M 

Right  Ma rgi n 

varies 

31 

m/o/  # 

Paragraoh  Margin 

varies 

Fioure  4-5.  SCOPE  FORMAT  Command  Structure 
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DEFAULT /STANDARD  FORMAT  MENU 


Bottom 

Marqi n 

R  Ins  = 

:  1 

1  /2" 

Lett 

Ma rq i n 

com  =  i 

1/4" 

Paae  No. 

Marqi  n 

6  Ins  : 

:  1 

M 

ParaqraDh 

Marqi  n 

co117  =  Ltmargin+4 

R  i  aht 

Ma  rq  i  n 

co 1 72  • 

:  1 

1/4" 

T  oo 

Marq  i  n 

b  Ins  =  1 

H 

Note: 

10  chars/inch  and 

6 

1 ns/i nch . 

On  Screen 

On  Listing  Paqe 

Adjust  Mode 

off 

on 

Fill  Mode 

on 

on 

L i neSoac  »  nq 

s  i  na  1  e 

douD 1 e 

Max  lines 

21 

bb 

W i ndow  S i 

ze 

21 

N/A 

T  ah 

4 

4 

F i qu  re  4-6.  SCOPE  FORMAT  Menu ( "e f au 1 t  ) 


CURRENT  FORMAT  MENU 


Pot  t om 

m  a  r  a  i  n 

6  Ins 

Left 

Margin 

col  8 

Paoe  No. 

Ma  rain 

3  Ins 

Pa  r aor aoh 

Margin 

co  1  l  2 

R  i  a  h  t 

Margin 

col  72 

T  op 

Ma  r g i n 

6  Ins 

Note:  10  chars/inch  and  6  lns/inc8. 

On  Screen  On  Listing  Page 


Adjust  Mode  off  off 

Fill  Mode  off  off 

LineSpacina  double  double 

Max  1  i  nes  21  66 

Window  Size  10  N/A 

Tab  8  8 


Figure  4*7.  SCOPE  FORMAT  Menu ( Cu r rent ) 

78 


I 


col umns 
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111  4  78 

1....5....0..3...7....//..  ...2 . // . 2 . 0 

L  P  C  R  E 
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2 

3 

Messaae  Area 
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S 

6 

7 

8 

<? 

10 

1  1 

12 

Text  Area 

13 

14 

IS 

16 

17 

18 

1 R 

20 

21 

22 

23 

24 

L  s=>  Left  Maroin  Settina 
P  ss>  Paraaraoh  Margin  Setting 
C  s=>  Center  of  the  Screen 
P  ::>  Right  Margin  Setting 
E  ==>  Last  Column 


Figure  4-8.  CRT  Screen  Layout 
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EOIT  MODE  q)uit  4)ddfile  Xltractfile  Oupson»oye 
c)ooy  d)elete  i)nsert  l)ocate  »)ove 
r)eDl ace  sTetmarker  x)chanqe 
Althouqh  the  desiqn  called  for  an  exact  duplicate  of 
the  final  hardcoov  output  on  the  screen,  that  is  not  the 
case  in  this  i mo  1 emen t a t i on  .  There  were  several  reasons 
for  this  desion  departure.  Fiqure  4-8  is  a  diaoram  of  the 
CRT  Screen  Layout.  Since  the  area  of  the  screen  available 
for  the  disolay  of  text  is  limited  (onlv  2 1  lines  here)# 
doub 1 e-soac i no  only  allows  the  user  to  see  a  small  seoment 
of  text  (11  lines).  Better  use  of  the  screen  occurs  when 
the  text  is  si nql 1 e-soaced  (21  lines  of  text  are  then 
displayed.  Fiqures  4-9  and  4-10  illustrate  this  point. 

The  screen  depiction  also  does  not  show  adjusted  lines  of 
text.  Maooinq  the  cursor  to  the  buffer  contents  becomes 
much  more  difficult  and  requires  the  maintenance  of 
information  about  each  disolayed  line  if  wraparound  and 
other  features  are  continued  in  their  present  form.  The 
too  and  bottom  marqins  which  include  the  runnunq  header  and 
footer  and  oaoe  number  do  not  appear  on  the  screen. 

Finally#  the  representation  of  underlinino  is  difficult 
because  the  underline  character  overwrites  the  text 
character  at  the  same  Position. 


Fiqure  4-9 


Sample  SCOPE  Screen  Display  *1 


EDIT  MODE  (Out*  A)ddfi1e  Xltraetfile  Oursormove 
c)ooy  d)elete  i  Insert  I  )ocate  *)ove 
rleolace  sletmarker  *)chanae 
Although  the  design  called  for  an  exact  duplicate  of 

the  final  hardcoov  output  on  the  screen*  that  is  not  the 

case  in  this  implementation.  There  were  several  reasons 

for  this  desian  departure.  Figure  4-8  is  a  diaoram  of  the 

CRT  Screen  Layout.  Since  the  area  of  the  screen  available 

for  the  disolay  of  text  is  limited  (only  21  lines  here)* 

doub 1 e-soac i no  only  allows  the  user  to  see  a  small  segment 

of  text  (11  lines).  Petter  use  of  the  screen  occurs  when 

the  text  is  s i nal 1 e-soaeed  (21  lines  of  text  are  then 

displayed.  Figures  4-9  and  4-10  illustrate  this  Point. 

The  screen  depiction  also  does  not  show  adjusted  lines  of 


Figure  4-10.  Sample  SCOPE  Screen  Disolay  *2 
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APPENDIX  B 


SCOPE 

SCOPE,  SCreen-Or i ented  Processor  end  Editor,  is  an 
interactive,  intearated,  screen-oriented,  context-  oriented 
text  orocessinq  system.  It  performs  the  functions  of  both 
a  text  editor  and  formatter.  The  followinq  paragraphs 
provide  a  brief  description  of  the  intended  SCOPE  System. 

while  using  SCOPE,  the  file  that  is  edited  or  formatted 
is  displayed  on  the  CRT  screen  which  acts  as  a  "window"  on 
the  text.  This  file  exists  in  a  stream  format,  i.e.,  the 
file  is  a  continuous  stream  of  character  data.  In  this 
character  stream,  the  lines  of  text  are  defined  by  a  line 
marker  or  a  paragraph  marker  which  preceeds  each  line  or 
paragraph  respectively.  Along  with  the  text  and  markers 
the  stream  also  contains  format  commands  which  cannot  be 
confused  with  either  the  text  or  markers. 

The  cursor  position  on  the  screen  serves  to  pinpoint 
the  text  to  be  processed.  Cursor  movement  occurs  in  one  of 
four  directions?  down  and  right  for  forward  movement  and  up 
and  left  for  backward  movement.  Movement  throuah  the  bodv 
of  text  is  accomplished  character  by  character,  line  by 
line,  a  screenful  of  lines  at  a  time,  or  by  a  page  of  lines 
where  a  oage  reflects  the  hardcopy  orintout  length.  Rapid 
movement  through  the  text  is  Performed  using  commands,  e.o, 
'D'  for  scrolldown,  which  allows  the  user  to  move  forward 


llll. 


'ii.i  yjssesaamm 


through  the  equivalent  of  3/4's  of  the  screen. 

During  the  editing  session,  text  is  inserted  in  free 
format  with  full-word  wranaround  at  the  end  of  each  line. 
The  svstem  worries  about  each  end  of  line  thereby  freeing 
the  user  to  concentrate  only  uDon  input ina  as  rapidly  as 
possible.  Blocks  of  text  may  be  copied  from  one  place  to 
another  within  the  same  file  and  to  another  file.  Deleted 
material  is  not  removed  from  the  buffer  until  the  user 
positively  acknowledaes  this  action  thus  preventing  some 
unintentional  errors.  Context  searches  are  also  available. 
Table  construction  is  facilitated  by  the  use  of  tabs.  The 
format  specifications  are  in  effect  durina  the  edit 
process . 

In  the  formatting  mode  the  user  immediately  sees  the 
processed  results  upon  the  CRT  screen.  The  cursor  oosition 
aaain  determines  where  the  formatting  action  is  to  occur. 
Menus  are  provided  fo  the  user  for  the  selection  of  desired 
formatting  specifications.  There  is  a  default  menu  that 
provides  the  user  with  a  reasonable  oaqe  layout  as  defined 
oy  the  NP$  Thesis  Manual.  Hardcooy  printouts  of  the 
document  mav  be  generated  on  various  models  of  printers. 
Centering,  right  justification,  i.e.  alignment  along  the 
right  margin,  underlining,  running  headers  and  footers  and 
footnoting  will  be  provided. 
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SCOPE  Execution  Commands 


%  sttv  raw  -echo  nl 

X  ox  scooe  (does  not  aopear  on  screen} 


enter  the  terminal  tyoe  as  follows: 

1  for  adm-^a *  2  for  dmlS20#  5  for  dm2500 
> 


orint  listina  on  UNIX  orinter--y  or  n? 
> 


COMMAND  MODE  > 

e)dit  f ) o  r ma  t  1 ) i s t i no  a }  u  i  t  r ) eadf i l e  w)riteMle 


SCOPE  Comoilation  Commands 


X  oi  -d  f i 1 ename .o 

-2 

-O 


<to  comDile  source} 

<to  generate  profile  counters) 
{necessary  to  turn  off  stmt 


X  my  obi  scope 


{to  correctly  name  the  object 
modu 1  we } 


X  oxp  -}2  filename. o  (provides  formatted  pgm  listing) 


%  oxp  -2  filename. o  {to  qenerate  profile) 

limit  counter} 


) 

j 


I 


SE5SE5SBHB 


orogram  scooeOnouf ,  outout#  infile/  outfile); 


(*  abbreviations  used  in  SCOPE  in  alohabetical  order.. 


addr 

address 

b  /  beg 

beo i nn i ng 

b 

bottom 

b  1  k 

blank 

buf 

buffer 

c 

center 

ch,  char 

character 

chg 

Change 

cmd 

command 

cnt ,  cnt  r 

count/  counter 

col 

col umn 

const 

const  ant 

convrt 

convert 

c  r ,  c 

c a r r i aae  return 

0 

scrot 1  down 

de  1 

delete 

di  r 

di reet i on 

e 

end 

i  n 

i  ODUt 

i ,  i  ndx 

i  ndex 

i  n  i  t 

ini t i al i te#  i ni t 

i  nc 

i nc  rement 

i  ns 

insert 

j  HD 

j  umD 

1 

left 

1  f 

1 i ne  feed 

1  m 

line  marker 

1  n 

line 

1  OCn 

1 oc at  ion 

m 

marker 

max 

maxi  mum 

msg 

mes  saae 

neg 

nega  t i ve 

noi  num 

number 

0 

o  f 

o ,  oara 

Daraoraoh 

Dd 

oaae 

Dm 

oaraoraoh  marker 

DOS 

dos i t i ve 

r 

right 

t 

t  od /  text 

u 

under/  uo 

U 

sc  ro 1 1 ud 

var 

variable 

end  abbreviations  *) 
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i 

t 


const 

overlao  =  5;  (*no  of  Ins  to  be  recooied  durinq  scrolling*) 
buflimit  =  30000; 

ltaxchars  =  14;  (*limit  on  user  inout  of  Iona  lenqtn*) 
snaxchars  =  4;  (*limit  on  user  inout  of  short  lenqth*) 
nsalns  =  3;  (*no.  of  lines  in  msa  area*) 

1 i ne 1  *  1 ; 

1 i ne2  =  2 } 

1 i ne3  -  3 ; 
neq 1  =  -1  ; 
oos  1  =  ♦ 1 ; 
zero  s  0; 
co 1 8  =  8 ; 
col  12  =  12; 
col  24  =  24; 


var 

emotybuf*  fileread#  naninqH Ie»  stoo:  boolean; 
•fill#  markersok#  alistinq:  boolean; 
beqmset#  endmset#  newmset :  boolean* 

ch,  emdchar*  eotchar,  bell#  boichar,  down:  char; 
accept*  erase*  auit*  om*  1 m*  If*  cr*  clear:  char* 
bm,  em#  nm#  inchar#  ho"»e<  left*  ud*  riqht:  char; 
centerlnch*  underinch#  titlech#  oqejectch:  char; 
indentch#  headerch,  footerch,  fillch,  rubout:  char 
pgnumch*  filloffch#  skiolnch*  hreakch:  char; 
rtjustifych#  Jmarginch*  rmaroinch,  tabch:  char* 
tmaroinch,  bmarqinch#  omarqinch,  pqmarqinch:  char; 
adjustch#  adjustoffch#  lnsoacinqch:  char* 

(escape#  rubout:char*  don't  work  in  raw  model 


buffer:  array  1 1 . .  bu f 1 i m i t )  of  char; 
cmd:  array  [  1  .  .smaxcharsl  of  char; 
name:  array  t 1 . . 1 maxcharsl  of  char* 
footbuf:  array  11..80]  of  char; 
headbuf:  array  I1..80]  of  char; 
underlnbuf:  array  fl..801  of  char; 

infile#  outfile:  text; 

cmdset,  edcmdset#  cur sormoveset  :  set  of  char; 
(cursormoveset  is  only  for  documentation  ourooses 
because  this  Pascal  doesn’t  allow  chr  defined 
variables  in  a  set  to  be  recognized  properly.} 

n#  bufindx,  insend*  insbeq*  number:  integer; 
rowno#  colno#  lastcol#  lastln*  Daqeno:  integer; 
termno#  blnoffset#  tlnoffset#  rmaroin:  inteqer; 
bmarqin#  Imarqin#  oqmarqin#  omarqin:  integer* 
tmaroin#  maxoglns*  Insoacinq:  integer; 
delbeg*  delend#  i*  i*  beatext:  integer* 
beqinax#  endindx#  newindx:  inteqer; 
charcnt#  centerofpq*  tab*  tabcnt:  integer; 

blklocns:  array  fl..201  of  integer; 
tablocns:  array  of  integer; 
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function  bot:  boolean; 

(  *  this  func  indicates  that  the  beainninq  of 
the  text  has  been  reached  when  it  is  true.*) 

begin  (*  bot  *) 

bot  : =  ch  s  botchar 

end»  (*  bot  *) 


function  boln:  boolean; 

C * t h i s  func  indicates  that  the  char  (ch)  read 
from  the  buffer  or  file  is  the  beqinninq  of 
line  marker;  i.e.  1m.  *) 


beqi  n 

boln  : =  c h  s  1 m 

end; 


f  *  boln  * ) 
f  *  boln  * ) 


function  boo;  boolean; 

(♦this  func  indicates  that  the  char  (ch)  read 
from  the  buffer  or  file  is  the  beqinninq  of 
paragraph  marker,  i.e.  om  .*) 

begin  (*  boo  *) 

boo  ; =  Ch  S  om 

end;  (*  boo  *) 


function  break;  boolean; 

(*this  function  indicates  that  the  char  (ch) 
read  from  the  buffer  or  file  is  the  break  char.*l 

beqi n  ( *  break  * ) 

break  ;=  ch  =  breakch 

end;  ( *  break  * ) 

function  eet:  boolean; 

(*this  func  is  analogous  to  the  eof  and  eoln 


funcs  and  indicates  the  end  of 
been  reached.*) 

the 

text 

has 

beqi  n 

(* 

eot 

*) 

eot  : =  ch  =  eotchar 

end,* 

(* 

eot 

*) 
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function  formatchar:  boolean; 

(♦this  func  is  true  when  ch  is  a  format 
command  or  oarf  of  one.*) 

beqin  (*  formatchar  *) 

if  (ord(ch)  >=  0)  and  (ord(ch)  <=  31)  then 
formatchar  :  =  true 

else  if  ch  in  t'l'*  '2'#  '3',  *4',  *5*)  then  begin 
(  check  for  numeric  oart  of  format  commands  > 
ch  :=  getbufchar (-1 )  ; 

formatchar  :s  ch  in  ftitlech,  1 nsoac i nqch) ; 
ch  :=  aetbuf char ( t t ) 
end? 

formatchar  :=  false 

end?  (*  formatchar  *) 


function  textcharJ  boolean; 

(•this  func  is  true  when  ch  is  a  valid 
disolavable  text  char  only.  Line/oara 
markers  and  format  commands  cause  a  false 
value  to  be  returned.  *) 

beqin  (*  textchar  *) 

textchar  (ord(ch)  >=  32)  and  (ord(ch)  <=  126) 


end; 


(*  textchar  * ) 


function  qetbufchar ( i nc :  integer)  :  char; 


(*this  func  gets  a  char  from  the  buffer.  It 
is  either  the  predecessor*  same  or  successor 
to  the  last  char  returned.*) 

(*  inc  has  the  values 

const 

neal  =  - 1 ! 
zero  =  07 
pos  t  -  + 1 ; 

begin  (*  qetbufchar  *) 

case  inc  of 
neql  : 
beain 

buf f er ti nsendl  :  =  buf f er (buf i ndxl ; 
insend  :  =  insend  -  1* 
bufindx  !=  bufindx  •  1? 
insbeg  :=  insbeg  *  l 
end* 
zero: 

null*  (*  no  chanae  within  the  buffer  *) 
oos  1 : 
begi  n 

bufindx  :=  bufindx  ♦  1; 
insbeg  :=  insbeg  *  l; 
insend  :  =  insend  *  1* 
buf fer Cbuf i ndxl  :=  buf fer  [  i nsendl 
end 

end;  (*  case  *) 
getbufchar  :  =  buf fer (buf i ndxl 
end*  (*  qetbufchar  *) 
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function  Inlenath:  integer# 

(•this  func  counts  the  chars#  including 
spaces  w/in  the  current  line  of  the  buffer  and 
expects  the  buffer  position  to  be  at  lm  or  pm.*) 

var 

cnt :  i nteoer # 

^eq’n  (*  Inlenath  *) 

cnt  :=  -l ; 
repeat 

ch  :=  aet bu f c ha r ( t i ) ; 
cnt  :=  cnt  t  1 
until  newline  or  eot; 

Inlength  :=  cnt; 

(return  to  beginning  of  line! 
repeat 

ch  is  getbuf char («1  ) ; 

Cnt  ! =  cnt  -  1 
until  cnt  <  0 

enc*'  (  *  1  n  1  enqt  h  *  ) 
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function  newline:  boolean; 

(*thi$  func  is  true  whenever  an  !m,  om, 
or  format  cud  inndicatina  a  new  line  is 
encountered.*) 

beq in  ( *  new  1 i ne  * ) 

newline  :  =  ch  in  (breakch ,  Dm,  1m,  titlech, 
end?  ( *  new  line  * ) 


function  center:  integer; 

( * t h i s  func  returns  the  Startina  oosition 
for  the  centerina  of  a  line.*) 


beqi  n 
center 
end? 


(*  center  *) 

centerofog  -  lnlength  div  2 

f*  center  *) 


1 


oqe  j  ec  t  c  h 1 
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procedure  terminal 


(*  this  orocedure  sets  the  terminal  constants*  i.e. 
ascii  codes  based  on  the  user  inout  terminal  type.*) 

war 

ans:  char* 


procedure  adm3a* 

( *  t  h i s  proc  assigns  the  unique  adm-3a  terminal  codes.*) 

begin  (*  adm3a  *) 

home  «  s  chr(30)J 
clear  :  s  ch  r ( 26 ) ? 

UP  :s  ch  r ( 1 1 ) * 
riqht  :=  c  h r ( 1 2 ) 

end*  (*  adm3a  *) 


procedure  dml520; 

( * t h i s  proc  assigns 
begi  n 

home  !s  chr(19); 
clear  :  s  chr(12); 

uo  :=  chr C31 ) * 
right  :=  c  h  r ( 25 ) 
end* 


procedure  dm2500; 

(*  this  oroc  assigns  the  uniaue  dm-2500  terminal  codes.* 

begin  (*  dm2500  *) 

home  !=  chr(2); 
cl  ear  :=  chr(30); 
up  :=  chr(26)* 
right  :  =  chr(28) 

end*  f*  dm2500  *) 


the  unique  dm -1520  terminal  codes.*) 
(*  dml520  *) 

( *  dm  1 520  * ) 
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procedure  termeodes; 

(*this  proc  assians  the  ascii  terminal  codes 
that  are  common  to  all  the  terminals  used  w/ 
this  system.*) 


beoin  (*  termeodes  *) 

1 astcol  :=  80; 

1  as 1 1 n  :  =  24 ; 
bell  i-  chr(7); 
cr  js  chr ( t  3) * 

If  i-  chr(10)»  (*  down  *) 

down  ;s  chr(32)» 

(*  note  that  I f /down  appears  as  1  1  on  UNIX  *) 

rubout  :=  chr(l27); 

{rubout  from  terminal  doesn’t  work  in  raw  mode) 
{escape  :  =  chr(?7);  doesn't  work  in  raw  mode) 
left  !=  chr(P); 

accept  ;s  chr(l);  (*cnfrl  a  *) 
erase  :=  chr(5);  (*cntr)  e  *) 


bea  i  n 


( *  terminal  * ) 


write(chr(?6),  chr(12),  chr(30)); 

w r i t e ( '  enter  the  terminal  type  as  follows  :  ')» 
wri te(chr( 1 3) ,  chr(10)l; 

writeCl  for  adm-3a,  2  for  dml520,  3  for  dm2500') 

wr i te (chr ( 1 3) »  cHr(10),  '  >  •); 

repeat 

read( ans) 

until  (ans  =  *  t  * )  or  (ans  =  '2')  or  (ans  =  ’3'); 
t  ermcodes ; 
case  ans  of 
’  1 ' : 
beai  n 
adm3a  J 
termno  :  =  1 
end; 

'  2 ' : 
bea  i  n 
dm  1 S20 ; 
termno  :  =  2 
end; 

•3'  ; 
beai  n 
dm?500 ; 
termno  :=  3 
end 

end  (*  case  *) 
end; 


( *  terminal  * ) 


orocedure  sef  def  au  1  t  s 

(*this  Pr oc  sets  the  default  values  for 
a  standard  8  1/2“  *  11"  sheet  of  caoer 
e.a.  marains»etc.*) 

beain  (*  setdefaults  *) 

fill  : =  t  rue ! 

b*aroi n  :  =  9;  ( *  1  1  /  2  "  * ) 

Imarqin  :=  13?  ( *  1  1/9”  *) 

pqmargin  :=  6»  (*  1"  *1 

omarain  17;  ( *  9  soacts  >  n  fm  Imarqin  *1 

ruarqin  :=  72;  (*  1  1/9"  *) 

tmaroin  :  s  6;  f *  1"  *) 

maxpql ns  : =  66  J 
1  nsoac  inq  :  =  2', 

center ofoq  :  s  (rmarain  -  Imarqin)  div  2  +  lmaroin 
tab  :s  9; 
n  :  s  1 ; 
reoeat 

fablocnstn)  :=  Imarqin  +  1  +  tab  *  n; 

n  J  =  n  ♦  1 

until  (n  s  21)  or  (tab  *  n  >=  80) 
end»  (*  setdefaults  *) 


procedure  set f ormatcmds » 

(♦this  proc  assians  the  ascii  codes  tor  the 

format  cmds  and  markers  used  w/in  rhis  system*) 

begin  (*  set f o rmat cmds  *) 

adiustch  :  -  chr( 1  )  i  (*  cntrl  a  *  ) 
breakch  :  =  chr(2)»  (*  cntrl  b  *) 

centerl nch  :  =  chr(^) ;  (*  cntrl  c  *) 

tmarqinch  :=  chr(4);  (*  cntrl  d  *) 
odejectch  :=  chr(5)»  (*  cntrl  e  *) 
fillch  :=  chr(6);  ( *  cntrl  f  *) 

ogmarginch  :=  chr(7);  f*  cntrl  a  *) 
headerch  :=  chr(fl);  (*  cntrl  h  *) 
tabch  :=  chr(9);  (*  cntrl  i  *) 

indentch  :=  chr(ll)?  (*  cntrl  k  *) 

Inspacingch  :=  chrfl?)?  (*  cntrl  1  *) 

lm  :=  c h r ( 1 3 ) }  ( *  1 i n e  marker  =  cr*) 

Dgnumch  :=  chr(l^);  (*  cntrl  n  *) 
filloffch  ! -  ChrflS);  (*  cntrl  O  *1 
om  :=  chr(16);  (*para  marker  =  cntrl  o*) 
footerch  :=  chr(17)»  (*  cntrl  g 

rtjustifvch  :=  chr(lP);  (*  cntrl  r  *) 
skiglnch  t  s  C  h  r  (  1  9  1  ;  (  *  cntrl  <s  *  ) 

titlech  :=  chrf20);  (»  cntrl  t  *1 
underinch  :=  chr(21);  (»  cntrl  u  *) 

nm  :=  chr(22);  (*new  marker=cntrl  v*) 
lmarainch  :=  chr(23);  (*  cntrl  M  *) 

adjustoffch  :=  C  h  r  (  2  y  )  >'  (  *  cntrl  x  *  ) 

botchar  :=  chr(25)*  (*  cntrl  y  *) 
eotchar  :=  chr(26)»  (*  cntrl  z  *) 
bm  :=  chr (27) ;  (*begin  marker=cntrl  f*) 
bmarginch  :=  chr(25);  (*  cntrl  \  *) 

em  ;=  chr(29);  (*end  marker=cntrl  )*) 
rmaroinch  :=  chr(30);  (*  varies  *) 

pmarqinch  :=  chr(31)  (*  varies  *) 

end?  (*  set  format cmds  *) 
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procedure  xyaddr(col»  row:  inteaer); 

(*this  proc  initiates  absolute  x-y  addressing  on 
the  crt  screen  for  adm-3a  and  dm-1520  terminals, 
termnum  is  1  for  the  adm-3a  and  2  for  the  dm-1520. 
col  is  the  actual  column  number  on  the  screen 
from  1  to  80  where  the  display  is  to  occur, 
row  is  the  actual  row  number  on  the  screen 
from  1  to  24  where  the  display  is  to  occur.*) 

begin  (*  xyaddr  *) 

case  termno  of 
1 :  ( *  adm-3a  * ) 

write(chr(27)»chr(61)fChr(row+31)»ehr(col+31))? 
(*  31  is  the  offset  for  ea.  value  to  set  the 
correct  ascii  code.*) 

2:  (*  dm-1520  *) 

wri te(chr(30) ,  chr(col  ♦  31)»  chrlrow  ♦  31))? 

3: 

begin  (*  dm-2500  *) 

(*the  offsets  vary  in  setting  the  correct  ascii  code*) 
if  col  <=  32  then 
col  :=  col  t  95 

else  if  (col  >=  33)  and  (col  <s  64)  then 
col  :=  col  t  63 

else  if  (col  >*  65)  and  (col  <=  80)  then 
col  :=  col  ♦  31? 

wr i t e (chr ( 1 2) $  chr(col)*  chr(row  ♦  95)) 
end 

end  (*  case  *) 

end?  (*  xyaddr  *) 


procedure  suserinput (nochars:  inteqer); 

(♦this  proc  qets  nochars  of  user  input.  A 
<cr>  terminates  short  user  input.*) 

begin  (*  suserinput 

i  :  =  1  ? 
repeat 

readf i nchar) ; 

if  inchar  =  erase  then  beqin 
wri te( 1 ef t *  '  %  left); 
i  !  =  i  -  1 
end  else  begin 

if  inchar  <>  cr  then  beqin 
wr i te( i nchar) ; 
i f  i  <=  smaxehars  then 
emd(i)  inchar? 
i  i-  i  ♦  1 
end 
end 

until  (inchar  *  cr)  or  (i  >  smaxehars  ♦  l). 
if  i  <s  nochars  then 

for  n  :*  i  to  smaxehars  do 
cmdtnl  :  =  '  ' 

el  se 

for  n  :s  nochars  t  1  to  smaxehars  do 
cmd(n)  :s  *  ' 


end# 


(*  suserinout 


procedure  1  user i nout (nochars:  integer) 


(•this  Proc  qets  nochars  of  user  input.  A 
<cr>  terminates  long  user  incut.*) 

begin  (*  luserinout  *) 

i  :=  1; 

repeat 

read( i nchar ) ; 

if  (inchar  2  erase)  and  (i  >  1)  then  begin 
wri te( 1 ef t ,  '  '  #  left); 
i  :=  i  -  1 
end  else  begin 

if  inchar  <>  cr  then  begin 
write(i nchar); 

if  i  <s  Imaxehars  then  begin 
namedl  :s  inchar; 
i  :=  i  ♦  1 
end 
end 
end 

until  (inchar  2  cr)  or  (i  >  Imaxehars  ♦  1); 
if  namingfile  then 

(•check  for  .p  in  filename*) 

if  (name(i  *  21  <>  '.')  or  (named  -  11  <>  'o 
if  i  <s  nochars  -  1  then  begin 
name  ( i 1  : *  ' . ' ; 
named  ♦  11  :=  'o'; 
i  :=  i  ♦  2 
end  else  begin 

name  (nochars  -  1)  I =  '•*; 
name fnocharsl  ;s  ’o’ 
end 
end; 

if  i  <5  nochars  then 

for  n  J2  i  to  Imaxehars  do 
nametnl  :=  •  • 

el  se 

for  n  * 2  nochars  t  l  to  Imaxehars  do 
nametnl  js  '  ' 

end#  (*  luserinput  *) 
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')  then 


procedure  convrtnum(i:  integer;  var  nun*  integer); 

f*this  proc  converts  the  char  number  in  the 
string  starting  at  index  i  into  an  integer  value.*) 


function  unifCcharno:  char):  integer; 

(*this  func  returns  the  unit  integer  value 
of  the  Char  number.*) 


begin 

(* 

un  i  t 

*) 

unit  S *  ordCcharno) 

-  ord('O') 

end; 

(* 

uni  t 

*) 

begi  n 

f *  convrtnum  *) 

n  ss  o; 

repeat 

n  :s  n  ♦  1 

unt  i  1  cmd  li  ♦  n]  s  '  *  ; 

case  n  of 

1 : 

num  :s  unit(cmdlil); 

2: 

num  :s  unit(cmdCiJ)  *  10  ♦  unit(cmdti  ♦  1)); 

3: 

num : sun itCcmdCil )*t00tgnit(cmd[i+l) )*10tgnit(cmdlit2) ) 
end  f*  case  *) 
end; 


(*  convrtnum  *) 


procedure  bl ankl n( rownum:  inteaer); 

(•this  proc  causes  a  line  of  blanks  to  be 
printed  extending  from  the  left  screen 
boundary  to  the  75th  col  on  the  riaht  so 
that  the  bell  doesn't  ring  each  time.*) 

*) 


*) 


begin 

(* 

bl ankl n 

xyaddrd#  rownum); 

writeC' 

•); 

writeC 

»); 

wri teC '  ' ) 

end; 

(* 

bl ankl n 

procedure  msqclear; 

(*thi$  proc  blanks  out  the  first  3  lines  of 

the  crt  screen^  i.e.  the  msg  area.  *) 

begin  (*  msaclear  *) 

b I ank 1 n ( 1 i net ) ? 
b 1 ank 1 n ( 1 i ne2) ? 
b I ank I n ( 1 i ne3 ) 

end.  (*  msoclear  *) 


procedure  oausei 

(•this  oroc  makes  the  user  aware  of  error  msas 
and  orompts  by  requiring  his  interaction  w/  the 
system.*) 

var 

ans:  char; 

begin  (*  cause  *) 

xyaddr(col?4»  Iine3); 
writeC*  <soaee>  to  continue  ')» 
repeat 

read(ans) 
until  ans  *  '  ' 

end;  (*  cause  *) 
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procedure  prompt  (oromotnu*:  integer) 


(*thi»  proc  writes  out  the  promot  indicated  by 
promptnum  in  the  msg  area  on  the  crt  screen.  O 

begin  (*  prompt  *) 

msgel ear ; 

xyaddr(col 12#  line!)* 
ease  promptnum  of 
t ! 

begin 

writet'EDIT  MODE  g)uit  A)ddfile  XJtractfile  ')» 

write('C)ursormove'); 

xyaddr (col  1 2#  1ine2)» 

write('c)oov  d)elete  ilnsert  I  locate  m)ove')# 
xyaddr (col  12#  line3)J 

wri te( ' r )eo1 ace  sletmarlcer  xlchange'); 
xyaddricolno#  rowno) 
end? 

2: 

begi  n 

wr i  te( '  INSERT  MODE'); 
xyaddr(col fl#  1ine2); 

writeCctrl  a  to  accept;  Ctrl  e  to  erase;  '); 
writeCctrl  a  to  guit*) 
end# 

3s 

begin 

wri te( 'FORMAT  MODE’) 
end; 
as 

begi  n 

wri te( 'COMMAND  MOOE  >'); 
xyaddr (co IP#  Tine2)» 

write('e)dit  f)ormat  Misting  a)uit  ')# 
wr'i  teC  r)eadf  i  1  e  w)ritefi1e'); 
xyaddr(colfl  ♦  22#  linel) 
end; 

5; 

begi  n 

writeCOELETE  MODE'); 
xyaddrfcolP#  iine2); 

writeCctrl  a  to  accept;  Ctrl  g  to  guit') 
end; 
bS 

begin 

writeCCOPY  MOOE’) 
end; 


101 


7 


begin 

write!  'HOVE  MODE') 
end; 

8: 

beqi  n 

wri te( '©recessing  eomol eted. • ) ? 
xyaddr(col8,  line?)# 

wri te( 'delete  markers  set  In  buffer-*y  or  n  ?'); 
xyaddr(col8#  Hne3)» 
wri te( *>' ) 
end; 

10: 

beqi  n 

write! 'buffer  full  ill'); 
xyaddr(co!8#  line?); 

write('cntr1  a);cceot  or  cntrl  q)ult  ?') 
end# 

11: 

beqin 

write('does  file  already  e*i»t-**y  or  n  ?')» 
xyaddr(col8#  line2)J 
wr i te( *  > ' ) 
end# 

12: 

beqin 

write('enter  initial  oaqe  no.  followed  by  <cr>')J 
xyaddr(co18,  line?); 
wri te( ’>' ) 
end; 

13: 

beqin 

write('orint  listinq  on  UNIX  orinter--y  or  n  ?'); 
xyaddr (col  1  2»  line?); 
wr i te ( ' > ' ) 
end; 

1«: 

write('at  end  of  file')* 

15: 

wri te( ' 1 i st ing  being  oroduced'); 

16: 

begin 

write! 'SETMARKER  MODE  B)eqin  E)nd  N)ew1ocn'); 
xyaddr(co)12  ♦  2»  line?): 

writei'mowe  cursor  then  cntrl  s  to  setmarker  *); 
writeCcntrl  q  to  quit'); 
xyaddr(co18f  HneJ); 

writeCtext  between/including  B)  and  E)  chars  '); 
writeCis  nlaced  before  the  cursor.') 
end; 


17: 
beai  n 

write!' LOCATE  MODE*) 
end? 

18: 
beai  n 

write!  'REPLACE  MODEM 
end? 

10: 

write!'at  beainninq  of  fileM? 

20: 

write!  'XCHANGE  MODEM? 

21 : 

wr  i  te!  '  Addf  i  1  eM  ? 

22: 

wr i te! ’ Xt  rect  f i 1 e  M  ? 

25: 

begin 

wri  te! ’Cursor  Movement  arrows')? 

xyaddr !col 8»  Hne2)? 

write!'<cr>  Ulseroliup  Dlscrolldown  plage') 
xyaddr!coi8,  Iine5)? 

wr i te! 'blegi nn i nq  of  file  e)nd  of  file') 
end 

end  (*  case  *) 

end?  (*  prompt  *) 
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procedure  errormsqCmsgnum;  integer); 

(*this  proc  prints  out  the  error  msa  indicated 
by  msgnum  in  the  msg  area  on  the  crt  screen.*) 

begin  (*  errormsa  *) 

wri te(be1 I ) * 
msgc 1  ear; 

xyaddr (col  1 2 ,  iinet); 
case  msgnum  of 
l s 

wri te( ' inval id  command’)* 

2: 

beqi  n 

wri te( 'movi nq  the  cursor  is  meaninqless  w/  ’) 
writeC'no  text  present  in  the  buffer.') 
end* 

3s 

wr i te( ' r )eadf i 1 e  before  enterinq  EDIT  MODE')* 

as 

wr i t e C ' i nva 1 i d  EDIT  command')* 

5s 

write('r)eadfile  before  enterinq  FORMAT  MODE  ' ) * 

6s 

wr i te( ' i nvali d  INSERT  command')* 

7  s 

writeCall  inserted  text  h«s  been  erased'); 

8S 

wr i te ( ' i nva l i d  DELETE  command')* 

Rs 

beai  n 

wri teC 'del et ion  direction  must  be  consistent* 
xvaddr(col8*  line2); 

write('go  right  and  down  or  ao  left  and  up.') 
end* 

1  0  s 

wri te( ' inval id  SETMARKER  command')* 

tls 

writeCbeqin  marker  already  set')* 

12s 

writeC'end  marker  already  set')* 

11s 

write('new  locn  marker  already  set')* 


l  a : 

writet'begin  marker  must  occur  before  end  marker')? 

15: 

writet'new  locn  cannot  be  located  In  the  delimited  text') 
16: 

writet'begin  marker  has  not  been  set')? 

17: 

writet'end  marker  has  not  been  set')? 

16: 

writet'new  locn  marker  has  not  been  set')? 

19: 

wr i te ( ' i nsuf f i c i ent  buffer  soace  for  copy  to  occur'); 

20: 

wr i te( ' pi  ease  indicate  the  title  tvpe--l»  2»  3»  9')» 

21: 

writeCnot  implemented'); 

22: 

wri te( ' r)eadf i 1 e  before  entering  SETMARKER  mode')? 

23: 

writet 'buffer  full  111111') 
end?  (*  case  *) 
pause 

end?  (*  errormsg  *) 
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procedure  printer# 

( *t  h  i  s  proc  mattes  necessary  adjustments  to 
margins  for  the  UNIX  printer,*) 

begin  printer 

repeat 

prompt  C 1 3 )  # 
suser i nput ( 1 ) 

until  (cmdfll  “  'y')  or  (cmdtll  =  'n')# 
if  cmdll)  =  'y'  then  begin 
(*UNIX  printer's  driver  allows  the  user 
to  write  only  63  lines  to  a  og  vice  66.*) 
tlnoffset  :=  2;  (*  2  In  at  the  too  *) 
blnoffset  :=  2  C*  ?  Ins  at  the  bottom*) 
end  else  begin 
tlnoffset  0; 
blnoffset  :=  0 
end 

end#  f*  printer 
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aMtiflmrt  rr -  — 


procedure  qetnumericmd; 

(*this  proc  aets  the  numeric  part  of  a  format 
command  and  converts  it  to  an  integer.*) 

beain  C*  qetnumericmd  *) 

i  ::  o; 
reoeat 

i  :=  i  ♦  l ; 
ch  **  qetbu f char ( tl  ) ; 
cmd I i )  : =  ch 

until  break ; 
cmdCU  :=  '  '#* 
convrtnumCi  *  1#  number) 

end#  (*  qetnumericmd  *) 

orocedure  jmotornarker (markerchar:  char;  inc:  integer); 
(*t  h  i  s  proc  moves  backward  or  forward  thru  the  buffer 
until  the  marker,  e.q.  bot  is  reached.  inc  indicates 
the  direction  of  the  move#  i.e.  t lxs> forward  and 
•l*=»backward.*) 

begin  (*  jmotornarker  *) 

ch  :=  qetbufchar(O) ; 
if  ch  <>  markerchar  then 
reoeat 

ch  :=  getbuf char ( i nc ) 
until  ch  •  markerchar 

end#  (*  jmotornarker  *) 
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procedure  f i 1 ename (cal  1 edby :  char); 

(*this  proc  reauests  user  input  of  the  name  of 
the  file  to  be  processed.  Up  to  chars*  includinq 
the  '.p'  for  a  PASCAL  file*  consisting  of  aloha  and 
numeric  chars  and  the  period  are  allowed.*) 

begin  (*  filename  *) 

msqc 1  ear ; 

xyaddr(co112*  line!)* 


case  cal  1 edby  of 
•A': 


wri te( 'name  the 
'  1' : 

writeC'name  the 

•  _  • . 
r  • 

wri te( ’name  the 


file  to  be  added  to  the  buffer*')* 
listing  file*')* 

rawfile  to  be  read  into  the  buffer*')* 


write('name  the  raw  file  saving  the  buffer  contents*') 
'  X  •  s 

writeC'name  the  file  to  be  extracted  from  the  buf fer*  ' 
end;  Cease) 
xyaddrCcolS*  line2); 

writeC'enter  the  filename. p»  uo  to  10  chars*  ')* 
wri teC ' fol 1  owed  by  <cr>')* 
xyaddrCcolfl*  line31* 
wr i te( ' >* ) * 
namingfjle  :2  true* 

1  user i nout (lmaxchars)* 
namingfile  :  =  false* 
writeC'the  filename  is  '*  name)* 
pause 
end* 


( *  f i 1 ename  * ) 


function  start  1 nfnoli nes:  inteqer):  char! 

(♦this  tunc  finds  the  beoinninq  of  the  line  to  be 
displayed  by  either  backt rack inq  or  skipping  forward 
through  the  buffer  by  countinq  the  number  of  line  and 
paraqraph  markers  encountered  and  comoarinq  this  total 
w/  the  specified  nolines.  Startln  returns  an  lm  or  pm. 
nolines  values  indicate  the  fotlowinq: 


•n 

backward 

n  1  i ne ( s ) » 

0 

same  1 i ne» 

♦  1 

f orward 

n  1 ine(s). 

*) 

begin 

(* 

start  In  *) 

if 

nol i nes  <=  0 

then  begin 

(* 

qp 

backwards  *) 

(*  to  find  start  of  current  line  *) 
ch  js  oetbufchar(O)  * 


if  not  newline  and  not  bot  then 
repeat 

ch  :*  qetbuf char (-1  ) 
until  newline  or  bot 

end? 

if  (nolines  <  0)  and  not  bot  then 
repeat 
repeat 

ch  :=  qetbufchar (-1) 
until  newline  or  bot? 
nolines  :=  nolines  ♦  1 
until  (nolines  *  0)  or  bot 

else  if  (nolines  >  0)  and  not  eot  then 
(  qo  forward  } 
repeat 
repeat 

ch  js  qetbufchar  (M  ) 
until  newline  or  eot? 
nolines  :=  nolines  -  1 
until  (nolines  =  0)  or  eot? 

i  f  bot  then  begin 
reoeat 

ch  js  qetbufchar (*t } 
until  newline 

end  else  if  eot  then 
reoeat 

ch  :*  qetbuf char (-1 ) 
until  newline? 

startln  ch 

end?  (*  startln  *) 
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procedure  setcursor(nocol »  nolines:  integer) 


( *t  M  s  Proc  maps  the  cursor  col  and  row  to  the 
correct  position  in  the  buffer.  Nocoi  is  the 
col  locn  of  the  text  char  in  the  line  of  text. 
See  startln  above  for  nolines  desc r i ot i on . * ) 

begin  f*  setcursor  *) 

ch  i-  s t ar 1 1 n (no  1 i nes ) * 
if  nocoi  s  ? margin  then  beoin 
if  bo I n  then 

colno  5 =  Imargin  ♦  1 
else  if  bop  then 

COlno  :s  pmargin  t  1 
else  if  ch  *  tabch  then 
orocesstab* 

(*ct  to  1st  char  in  line  in  the  buffer  *) 
repeat 

ch  :=  qetbufchar (tl  ) 
until  textchar  or  eot 
end  else  begin 
if  boln  then 
i  :=  Imargin 
else  if  boo  then 
i  pmargin 

else  if  ch  s  tabch  then 
i  js  Imargin  ♦  tab* 

repeat 

ch  S=  qetbuf char ( ♦  1 )  * 
if  textchar  then 
i  S=  i  ♦  1 

until  (i  s  nocoi)  or  newline  or  eot* 

(*if  there  are  not  enough  chars  in  the  line 
then  pt  to  the  last  one.*) 
if  newline  or  eot  then 
repeat 

ch  :=  oetbufchar (-1 ) 
unt il  textchar* 
colno  t=  i 
end 

end*  (*  setcursor  *) 
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procedure  ad j ust 1 n ( 1 ncnt r :  integer); 

(*this  proc  inserts  extra  blanks  in  a  In  of  words 
so  that  the  last  char  of  the  last  word  is  on  the 
right  marqi n .  Each  In  is  divided  into  2  parts  at 
midword.  Iblkcnt  and  rblkcnt  are  the  *  of  blanks 
inserted  to  the  left  and  right  of  midword.  endblkcnt 
is  the  total  #  of  blanks  to  be  inserted  in  the  In. 
blktoens  indicates  where  w /in  the  In  blanks  are  located, 
inc  is  the  offset  in  blklocns  due  to  orevious  blank 
insertion.  lend  is  the  blank  oosition  ©receding  midword.*) 

var 

endblkcnt.  i#  inc#  Iblkcnt#  rblkcnt:  integer# 
midword#  wordcnt#  lnsize#  lend:  integer# 
blklocns:  array  (1..201  of  integer# 


procedure  cntwords# 

(*this  proc  counts  the  #  of  words  in  a  In  of  text 
and  finds  out  where  blanks  may  be  inserted.*) 

begin  (*  cntwords  *) 

ch  :=  start  Jn(-1 ) » 
wordcnt  :  =  0; 
i  :s  1 ; 

if  lnsize  >  centerofog  ♦  3  then  beqin 
while  i  <=  lnsize  do  begin 
ch  :s  getbufcharf *1)# 
if  ch  !  '  '  then  beqin 

(check  for  2  spaces  together) 

if  (wordcnt >s 1 ) and fbl k 1 ocns  Iwordcnt )<> i -1 )  then  heain 
wordcnt  :=  wordcnt  ♦  1# 
b 1 k 1 ocns (wordcnt 1  :s  i 
end  else  if  wordcnt  <  1  then  begin 
wordcnt  ;s  l; 
hi k 1 ocns  (11  : =  i 
end 
end# 

i  :=  i  ♦  1 
end# 

wordcnt  :*  wordcnt  ♦  1 
end 

end#  (*  cntwords  *) 
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procedure  leftside? 

(*this  proc  adjusts  the  left  half  of  the  line 
by  Inserting  extra  blanks  to  the  left  of  midword*) 

begin  (*  leftside  *) 

i  :*  It 
i  nc  I =  0 » 

lend  S  =  lolkcnt  *  (midword  •  1)» 
ch  :*  st art  I n( 0) * 

J  :=  1? 
reneat 

ch  !*  getbufchar ( +1 ) # 
wr i te(out f i I e#  ch)# 

if  (inc  <  lend)  and  (lblkcnt  >  0)  then  begin 
if  j  s  blklocnstil  then  begin 


orocedure  rtside; 

(•this  proc  adjusts  the  riaht  Half  of  the  line 
bv  inserting  extra  blanks  to  the  right  of  midword*) 


begin  (*  rtsida  *) 

i  :s  midword# 
repeat 

ch  :s  oetbufehar ( tl  ) ; 
wr i teCout f i 1 e#  ch); 

if  (i  <  wordcnt )  and  (rblkcnt  >  0)  then  begin 
if  j  s  blklocnsli)  then  beoin 
for  n  js  i  to  rblkcnt  do  begin 
I  i»  i  ♦  i; 
wri te(out  f i 1 e»  '  ' ) 
end; 

i  j  *  i  ♦  i ; 
inc  J*  inc  ♦  rblkcnt; 
blklocnsli!  ;  =  blklocnsli!  ♦  inc 
end 
and; 

i  :=  i  ♦  1 
until  j  >  Insize 

end;  (*  rtside  *) 

begin  (*  adjustln  *) 

Insire  J*  lnlenqth; 

endblkcnt  js  rmargin  -  (Insize  +  lmarqin); 
if  endblkcnt  >  0  then  begin 
cntwords; 

if  wordcnt  >  0  then  begin 

if  lncntr  mod  2  -  0  then  begin 

lblkcnt  :s  endblkcnt  div  (wordcnt  -  1)» 
rblkcnt  J=  lblkcnt  t  t; 

midword  J=  wordcn t ♦ (1 b 1 kcnf *( wordcnt • 1 ) -endb  1  l<cnt ) 
end  else  begin 

rblkcnt  J=  endblkcnt  div  (wordcnt  •  1)» 
lblkcnt  :s  rblkcnt  ♦  l; 

midword  J s  endblkcnt  ♦  1  •  rblkcnt  *  (wordcnt  -  1) 
end# 

leftside; 

rtside 

end 

end 

end;  (*  adjustln  *) 
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procedure  displayln? 

(•this  oroc  causes  one  line  of  ud  to  80  chars 
to  be  disolaved  on  the  crt  screen  at  the  line/ 
row  position  indicated  by  rowno.*) 

begin  (*  disolayln  *) 

if  bol n  then 

colno  :=  Imargin  t  1 
el  se 

colno  Is  pmargin  ♦  l; 

■yaddr ( col no»  rowno)? 

repeat 

eh  :*  getbuf char (♦! ) ; 
if  textchar  then  begin 
wri te(ch) 
end 

until  newline  or  eot 
end? 


(*  disolayln  *) 


procedure  di  sol  ayscreen(col  #  nolines#  row:  integer)# 
(*this  proc  causes  uo  to  ( 1 ast 1 n«msal ns ) # 
usually  (2«-3)  or  21#  lines  to  be  disolaved 
on  the  crt  screen,  nolines  is  described  in 
startln.  col  and  row  indicate  the  final 
cursor  position.*) 


lncnt:  integer? 


1 


♦  1? 
of 


lastln  then  beQin 
lncnt  ♦  1? 


var 

buf 1 ncnt  # 
begin 

lnsoacing  :=  1? 
wr i te(c 1  ear) ? 
buflncnt  :*  0? 
lncnt  :=  0? 
rowno  ?s  1  ♦  msglns? 
ch  :*  start ln(nol ines) ? 
reoeat 

di spl ayl n? 

buflncnt  :=  buflncnt  ♦ 
lncnt  ?s  lncnt  *  1? 
rowno  ?s  row no 
case  Inspacinq 
l: 

null? 

2: 

i f  rowno  < 
lncnt 
rowno 
end? 

3: 

begin 
1  ncnt 
rowno 
end 

end  (*  case 
until  (lncnt 
if  eot  then 

buflncnt  :s  buflncnt 
i f  row  =  1  then 

setcursor (col »  -buflncnt) 
else  if  rowno  =  lastln  then 
setcursor (col »  0) 
else 

setcursor (col # 
if  lnsoacing  *  1 
rowno  ?s  row  ♦ 
else 

rowno  •  *  row  *  lnsoacing  • 


(*  di sol avsc reen  *) 


ss  rowno  ♦  1 


J  *  lncnt 
J  =  rowno 

*) 

>=  lastln 


27 

2 


-  msglns)  or  eot? 


-  1 


-buflncnt  -  row)? 

then 

msgln? 


xyaddr (col  no# 
end? 


rowno) 


lnsoacing  ♦  l  ♦  msqlns 
(*  di sol ayscreen  *) 


procedure  scrolluo# 


(•this  proc  causes  the  user  window  to  move 
backwards  thru  the  tent  far  enouah  to 
move  16  lines#  3/4’s  of  a  screen#  or 
until  bot  is  reached.  It  provides  for  an 
overlap#  i.e.  the  too  5  lines  will  become 
the  bottom  5  lines#  for  continuity.*) 

var 

uptns:  integer! 

begin  (*  scrolluo  *) 

uplns  i-  overlap  *  lastln  ♦  msolns  •  rowno# 
di sol  a v screen (lmarqin#up1ns#1astln-msq1ns-overl an- 1 ) 
end#  (*  scrolluo  *) 


procedure  scrolldown; 

(•this  proc  causes  the  user  window  to  move 
forward  thru  the  text  buffer  far  enough  to 
move  16  lines#  3/4's  of  a  screen#  or  until 
eot  is  reached.  It  provides  for  an  overlap# 
i.e.  the  last  5  lines  will  become  the  too  5.*) 


var 

downlns:  integer; 


begin  (*  scrolldown  *) 

downlns  lastln  -  msalns  -  overlap  -  rowno# 
di sol aysc reen ( 1 marqi n #  downlns#  overlao  •  1) 
end#  (*  scrolldown  *) 
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procedure  chqrowno!  i  nc  :  integer) 


(*this  Proc  causes  the  row  numbe  incremented  to  be 
or  decremented  by  t.  It  uses  the  terminal's  HW 
scrolling  feature  when  at  the  bottom  In  on  the  CRT.*) 

begin  (*  chqrowno  *) 

if  (ine  s  -1)  and  ( rowno  =  1)  then 
scroll  up 
el  se 

case  Insoacing  of 

1 : 

if  rowno  <  lastln  then 
rowno  ! s  rowno  ♦  inc 
else  begin  { rowno5' ast l n) 
wri te( 1 f  )  i 
di spl av 1 n 
end# 

2: 

if  rowno  <  lastln  then 
rowno  rowno  ♦  2  *  inc 
else  begin  { rowno=l ast 1 n> 
writedf#  If),* 
di spl avl n 
end? 

3: 

if  rowno  <  lastln  -  2  then 
rowno  :  =  rowno  ♦  3  *  inc 
else  begin  { rowno= 1  as 1 1 n-2> 
writedf#  If#  If#  If); 
di sol  ay  1 n 
end 

end  (*  case  *) 

end?  (*  chqrowno  *) 
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procedure  maocursor ( i nc J  integer)? 

(♦this  proc  duplicates  the  cursor  movement 
on  the  screen  as  movement  thru  the  buffer 
so  that  there  is  a  one-to-one  correspondence 
between  the  cursor  char  and  the  buffer  char.*) 
(*inc  has  the  values  *1  and  -!»*) 


begin  (*  mapcursor  *) 

if  bop  or  boln  then  begin 
case  inc  of 

ne<31:  .  iv 

begin  (wraparound  to  end  of  previous  ln» 

ch  :=  start  1 n(-l) ! 

i f  bol n  then 

colno  Imargin  t  lnlenqth  t  1 
el  se 

colno  S  -  omargin  t  lnlenoth  1 


end? 
posl : 

(go  forward  to  next  line) 
if  boln  then 

colno  ?s  lmargin 
else 

colno  S *  pmargin 
end?  (case) 
charowno( inc) 
end  else  if  bot  then 
prompt ( 1 Q ) 
else  if  eot  then 
oromot ( 1 U ) 
el  se 

(other  format  commands) 
null 

(*  maocursor  *) 


1  IS 


function  getchar ( i nc :  integer):  char* 

(*this  fune  returns  only  disDlavable  text 
chars  from  the  buffer.  It  ignores  the  format 
commands  embedded  in  the  buffer.  *) 

(*  inc  has  the  values  ♦ 1  and  -1  *) 

const 

neg 1  =  - 1  * 

posi  =  +i ; 

beqin 

case  inc  of 
negl : 
repeat 

ch  :s  getbuf char ( -1 ) ; 
if  formatchar  then 
maDCursor (-1 ) 
el  se 

colno  :  =  co 1  no  -  1 
until  textchar  or  bot* 
dos  1 : 
repeat 

ch  :=  qetbufchar (tl ) * 
if  formatchar  then 
maocursor  C ♦  i ) 
el  se 

colno  J=  colno  ♦  i 
until  textchar  or  aot 
end#  (*  case  *) 
i f  bot  or  eot  then 
repeat 

ch  :=  aetbuf char (-i nc ) 
until  textchar* 
qetchar  :=  ch 
end* 


(*  qetchar  *) 


(*  qetchar  *) 
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procedure  ti t 1 epmf i x C var  pmchars:  inteaer) ; 
(*this  proc  chanaes  the  oaraaraoh  margins 
to  conform  to  thesis  manual  specifications 
for  indentation.*) 

( *  t i t 1 eomf i x  * ) 


omarqin  +  1 

( *  t i 1 1 eom  fix  * ) 
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begin 

case  ch  of 
'  1 ' : 

pmarain  :  =  17; 
•2': 

pmaroin  js  17; 
•3': 

pmaroin  js  21  r 

•a* : 

pmarain  : s  25; 
•5* : 

pmarain  ;s  17 
end;  lease) 
pmchars  :  =  rmarqin 
end? 
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procedure  orocessbuf (start  *  finish:  integer); 

(•this  proc  processes  the  buffer  after  text 
insertion/  deletion  or  format  chanoes»  e.g. 
rmarqin  or  Imargin.  Only  the  oaraaraph(s) 
involvea  in  text  changes  will  be  reprocessed. * ) 

var 

lmchars*  pmchars*  nochars*  cntr:  integer* 
halt;  boo  lean; 


procedure  onl yreadCstop:  char); 

(•this  proc  prevents  orocessina  of  specially 
formatted  text  such  as  titles*  etc.*) 

begin  (*  onlyread  *) 

repeat 

ch  :s  qetbufchar(>l  ) 
until  (ch  s  stop)  or  eot** 
halt  :  =  t  rue 

end;  (*  onlyread  *) 
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beain  (*  oroeessbuf  *) 

lmchars  :=  rmarqin  -  lmarqin  +  1; 
omchars  :  =  margin  -  ©margin  +  1; 
halt  :=  fal se; 
ch  :  =  start ln(0); 
if  bufindx  >  start  then  begin 
reoeat 

ch  J=  start ln(-l) 

until  boo  and  (bufindx  <-  start)  or  hot# 
if  bot  then 
reoeat 

Ch  :s  qetbuf char ( +1 ) 
until  new  1 i ne 

end; 

i f  bop  then 

nochars  :  =  omchars 
e  1  se 

nochars  ;  =  lmchars? 
reoeat 

cntr  :=  0; 
reoeat 

ch  :=  oetbufchar (  +  1  )  * 
if  textchar  or  boln  then  beqin 
cntr  :=  cntr  ♦  1 » 
if  boln  t  hen  beqi n 
ch  :s  '  •; 

buf f er tbuf i ndxl  :=  ch 
end 

end  else  if  ch  s  filloffeh  then 
on  1 yread( f i 11 ch) 
else  if  ch  s  titlech  then  beain 
ch  :=  qetbuf c hgr ( 1 1  )  ; 
t i 1 1 epm  fix( omchars); 
onl yreadCom) 

end  else  if  ch  =  tabch  then 
nochars  :  =  nochars  -  taD 
until  newline  or  (cntr  =  nochars)  or  eot  or  halt 
if  not  (newline  or  halt  or  eot)  then  begin 
if  ch  <>  '  *  then 

(*  backtrack  to  space  before  word  *) 
reoeat 

ch  ;s  oetbufchar (-1 ) 
until  ch  =  '  ' ; 

buf fer tbuf i ndxl  :=  lm; 
nochars  :s  lmchars 
end  else  if  boo  then 
nochars  :=  pmchars 
else  if  halt  then 
halt  :=  f al se 

until  boo  and  (bufindx  >=  finish)  or  eot 
end;  (*  processbuf  *) 


it 
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orocedure  movecursor# 

(♦this  proc  causes  the  cursor  to  move  on  the  screen 
as  well  as  mappinq  the  cursor  movement  to  the 
movement  thru  the  buffer.  *) 

beain  (*  movecursor  *) 

if  inchar  =  right  then 
(*  move  forward  1  col  *) 
ch  : =  oetchar ( t  1 ) 
else  if  inchar  =  left  then 
(*  move  backward  1  col  *) 
ch  : =  qetchar (-1 ) 

else  if  inchar  =  ud  then  beqin  (*  move  up  1  line  *) 
setcursor (col  no#  -1)# 
chqrowno (-1 ) 

end  else  if  inchar  =  down  then  beqin  (*  move  down  !  line  *) 
setcursor (col  no#  tl); 
chqrowno( tl ) 

end  else  if  inchar  =  'U'  then 
(*  backward  3/fl*s  screen  *) 
scroll ud 

else  if  inchar  s  • O'  then 
(*  forward  3/4*s  screen  *) 
sc  rol 1  down 

else  if  inchar  =  'b*  then  beain 

(*  go  to  the  beqinninq  of  file  *1 
j motomarker (botchar ,  -1); 
di spl aysc reen ( 1 marqi n #  0,  tl) 
end  else  if  inchar  s  'e*  then  beain 
(*  go  to  the  end  of  file  *) 
j motomarker (eot char #  tl); 

di spl ayscreen ( rmarai n#  -(2  *  overlap)  t  1#  2  *  overlap) 
end  else  if  inchar  =  cr  then  oeqin 

(*  move  to  1st  col  of  next  line  down  *) 
setcursor ( 1 marai n #  tl); 

Chgrowno( tt ) 

end  else  if  inchar  =  'o'  then 
nu  1  1  * 

xyaddr (col  6#  lastln); 
wri te(ch) ; 

xyaddr(colno#  rowno) 

end#  (*  movecursor  *) 
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procedure  readraw; 

proc  reads  the  raw  tile*  if  oresent*  into 
the  buffer  and  reorganizes  the  buffer  into  the 
correct  structure.  if  no  file  is  oresent  the  buffer 
is  set  uo  for  the  creation  of  a  new  file.*) 


procedure  newbufinit* 

(‘this  oroc  initializes  the  buffer  for  the 
creation  of  a  new  file.*) 

begin  (*  newbufinit  *) 

(‘botchar ! format rec ! om J  insert  area  ! eotchar ! empty* ) 
(*beaindx!  ...  Sinsbeq!  Sinsend!  Jbuflimit*) 

begindx  If 

buf f er (begi ndx]  :=  botchar? 
buffer  Ibeqi ndx  +  11  :=  pm? 

bufindx  :  =  begindx  +  1* 
insbeg  :  =  beaindx  t  2? 
insend  :=  buflimit  -  2? 
buf f er Tbu f 1 i mi t  -  11  ;  =  eotchar 

end*  (*  newbufinit  *) 


procedure  nrocessraw? 

(*this  proc  processes  the  raw  M le  by  counting  off  the 
no.  of  chars  to  be  in  a  line  after  the  maroin  spaces 
are  considered  and  includes  the  orooer  spacing  consid¬ 
erations.  A  processed  tine  is  oreceded  bv  a  lm  or  om 
if  it  is  a  paragraph.  Previously  set  lm's  are  blanked*) 
var 

cntr#  lmchars#  nochars#  pmchars:  integer* 
begin  (*  processraw  *) 

pmchars  i-  rmargin  -  omargin  t  1  ! 
lmchars  :  =  rmargin  -  Imargin  +  i? 
nochars  lmchars? 
bufindx  :=  0; 
j  :=  0? 

while  not  eof(infile)  do  begin 
cntr  :=  j? 
repeat 

read( infile#  ch); 
bufindx  :  =  bufindx  *  1; 
if  fill  then 

if  textchar  or  boln  then  begin 
cntr  :s  cntr  t  1 ; 
if  boln  then 
ch  i-  '  ' 

end  else  if  bop  then  begin 
nochars  :=  pmchars? 
i  ■*  0 

end  else  if  ch  =  tabch  then 
nochars  ?s  nochars  -  tab 
else  if  ch  =  titlech  then  begin 
buf f er fbuf i ndxl  :s  ch? 
bufindx  :=  bufindx  ♦  1? 

read (infile#  ch)? 
titlepmfixf pmchars) 
end? 

bu f fer fbuf i ndxl  :=  ch 

until  newline  or  (cntr  =  nochars)  or  eof(infile)? 
if  not  (newline  or  eof(infile))  then  begin 
if  ch  s  ’  '  then  begin 

buf f er Tbuf i ndx)  :=  1m? 

i  s=  0 

end  else  beqin  (backtrk  to  ’  *  before  word) 

]  :  =  0? 
repeat 

i  :=  i  ♦  1 

until  bu f fer (bu f i ndx  •  jl  *  '  '? 
buf fer fbuf i ndx  -  jl  :=  lm 
end? 

nochars  :s  lmchars 
end 
end 

end?  (*  orocessraw  *) 


125 


procedure  oldbufinit# 

(*th($  proc  initializes  the  buffer  after  an  existinq 
file  has  been  read  in.*) 


var 

bufend:  integer; 

begin  {*  oldbufinit  *) 

(*botehari format  rec }om  5 i nsert  area'textleotchar! empty*) 
prompt (1 «) ; 
processraw J 
bufend  Js  bufindx; 
j  J  =  buflimit  -  1 » 
i  J  =  bufend? 
reoeat 

bufferljl  ;  =  buffer(ij; 
bufferli]  :=  *  •? 

i  js  i  -  1? 
i  :=  j  -  1 
unt  i  1  i  -2! 

insend  J  =  i?  < 

beqindx  S*  i  -  1? 
insbeg  J  =  beqindx  ♦  1 

end#  (*  oldbufinit  *) 

beain  (*  readraw  *) 

setdefaults# 

wrj te(c Jear);  (for  previous  reads) 

fileread  js  true# 

reoeat 

oromot (11); 
suser input ( l ) ? 
ch  J*  sstrinqlll 
until  (ch  s  'y')  or  (ch  s  'n'); 
if  ch  s  'n*  then  beqin  (empty  new  file) 
emptybuf  Js  true# 
newbuf i n i t 

end  else  begin  (*  nonempty  existinq  file  *) 
emptybuf  J  =  false# 
f i 1 ename ( ' r ' ) # 
reset ( i nf i 1 e#  name)# 
oldbuf  ini  t  # 

bufindx  J=  beqindx  ♦  i; 
di spl avsc reen ( 1 marqi n #  0#  l) 
end 

end?  (*  readraw  *) 
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procedure  writeraw; 

(•this  proc  writes  the  buffer  back  to  storage.*) 

begin  f*  writeraw  *) 

f i 1 ename ( '  w  ' ) » 
rewr i te (out f i 1 e#  name)# 
jmotomarker (botchar#  -1)J 
Ch  ;=  get bu f char  (  0  ) ; 
writeC out  file#  ch); 
if  not  eot  then 
repeat 

Ch  ;s  qetbuf char ( ♦  1  )  J 

if  not  (ch  in  frubout*  bm#  em#  nm) )  then 
wr i t e (out  f i 1 e#  ch) 
until  eot; 
f 1 ush (out  file) 

end#  (*  writeraw  *) 
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procedure  1 i storocessed; 


(this  oroc  processes  the  buffer  and  writes  out 
the  processed  text  to  the  user-indicated  file 
for  printing  w/  no  coov  saved.) 

var 

Incnt:  integer; 


procedure  b 1 ank 1 i ne (no  1 i nes ;  integer); 

(*  this  proc  writes  out  a  blankline  of  processed 
text  to  the  output  file.*) 

begin  (*  blankl ine  *) 

for  I  l  to  nolines  do 
wr i te (out f i l e#  cr*  If) 

end;  (*  bl  anlcl  ine  *) 


procedure  endpage; 

(*thfs  proc  performs  the  end  of  page 
processing  necessary  for  page  numbering#  prooer 
margins*  etc.*) 

begin  (*  endpage  *) 

repeat 

b l ank l i ne ( 1 ) ; 

Incnt  :=  Incnt  +  l 
until  Incnt  >=  maxoglns  -  ogmargin; 
if  oageno  <>  0  then  beain 

wri teCout f i l e*  pageno:  centerofpg); 

Incnt  :s  Incnt  t  l; 
oageno  :*  oaoeno  t  1 
end# 

b l ank H ne ( maxpgl ns  -  Incnt  -  blnoffset) 
end#  (*  endpage  *) 
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procedure  wr i tet i 1 1 e ( i ndentn :  inteaer); 

(•this  proc  writes  out  one  line#  a  title*) 

begin  (*  writetitle  *) 

for  i  :=  1  to  indentn  do 
wr i te(out  file#  '  ' ) » 
repeat 

ch  :*  qetbufchar(+t )  i 
if  not  formatchar  then 
wr i te(out  file#  ch  ) 
until  newline# 
write(outf i le#  cr>  If) 

end#  (*  writetitle  *) 
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procedure  orocesst i t 1 «* 

classification  as  1st  order#  2nd  order#  etc# 

according  to  thesis  manual  i nst ruct i ons . * ) 

begin  <*  orocesst i t 1 e  O 

Ch  s*  gefbuf char ( t 1 ) # 

case  ch  of 

•  r : 

begin 

endoage# 

blankllnettmarqin  ♦  3)1 
omargin  5s  17; 
writetitle(center); 
bl ankl ine(2) # 

Incnt  :«  tmargin  ♦  6 
end# 

’2* : 

if  (Incnt  =  tmarain)  or  (Incnt  s  tmargin  ♦  6)  then 
Incnt  :=  Incnt  -  1 
el  se 

b 1 ank 1 i ne ( 1 ) » 
omaroin  :s  17# 
writetitledmarginl# 
b 1 ank lined)# 

Incnt  :=  Incnt  ♦  3 
end# 

•3': 
beai  n 

omaroin  :*  21# 
writetitle(lmargin  ♦  a)# 
bl ank 1 i ne( 1 ) * 

Incnt  :=  Incnt  +  2 
end? 

•a' : 

begin 

omarqin  :=  25; 
writetitled margin  ♦  8); 
b 1 ank 1 i ne ( 1 )  # 

Incnt  :=  Incnt  ♦  2 
end# 

•5' : 
begin 

endpage; 

blankl ine (tmarain  ♦  3); 
omarqin  !=  17; 
wr i tet i t le(center) ; 
b 1 ank 1 i ne ( 2 ) # 

Incnt  :=  tmargin  t  6 
end 

end  (case)  .  . .  . 

end.  (*  orocesst i t 1 e* ) 
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procedure  listln? 


(★this  proc  writes  one  line  of  processed  text 
to  the  output  file.*) 


beqi  n 

if  ch  a  titiech  then  begin 
orocesst i t 1 e? 
atitle  :=  true 
end  else  begin 
if  boln  then 

for  i  :®  1  to  Imarain  do 
writefoutfile#  '  ') 

else  if  boo  then 

for  i  :=  1  to  omarain  do 
wri teCout  filer  '  ' ) 

else  if  ch  =  breakch  then 
for  i  J*  1  to  Imarqin  do 
wri te(out  file.  1  ' ) 

else  if  ch  a  oaeiectcb  then 
endpaper 
repeat 

ch  :=  qetbufchar (tl ) J 
if  not  newline  then 
if  textchar  then 

wr i teiout f i 1 er  ch) 
until  newline  or  eot? 
wr i tetout f i 1 e#  err  If) 
end 
end? 


( *  1  i  st  I  n  *) 


(*  )  i  s  1 1  n  * ) 


i 

] 


( *  1  i  storocessed  *  ) 


beqi  n 

at i t 1e  :=  f al se; 

Inspacina  : =  2; 
alisting  :  s  t  rue* 
f i 1 ename; 

rewri ta(out f i ! e*  lstring); 
jmotomarker (botchar#  -1); 
repeat 

ch  :s  oetbuf char ( *1 ) 
until  new  line? 
promot (12); 
suser i nput ( 3) f 
conyrtnumCl;  pageno); 
centerofpg  Js  (rmargin  •  lmarqin)  div  2  ♦  lmarain 
prompt ( 15 ) » 

tmarqin  :  =  tmaroin  *  tlnoffset; 
bmargfn  J  =  bmarqin  ♦  btnoffset* 
pqmargin  :  =  ogmargin  +  blnoffset; 
repeat 

blankline(tmargin); 
lncnt  J=  tmargin? 
repeat 
Hstlni 

i f  not  at i t 1 e  then 
case  Inspacing  of 
1 : 

lncnt  js  lncnt  ♦  1# 

2; 

beqi  n 

bl ank 1 i ne( 1 ) ; 
lncnt  :  =  lncnt  +  2 
end; 

3; 

beqi  n 

b 1 ank 1 i ne ( 2 ) ; 

lncnt  Js  lncnt  ♦  3 
end 

end  (*  case  *) 
else 

at i t 1 e  ;s  false 

until  eot  or  (lncnt  >  maxoolns  -  bmarqin); 
endpage 
until  eot; 
pause; 

alisting  js  false 

end;  (*  I i stprocessed  *) 
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(*  chec kmarkers  *) 


begin 

markersok  :*  true? 

case  call edby  of 
'  A ' : 

(Addf i 1e> 
mtest  5 ; 
c  • 

(coov> 

if  begmset  and  endmset  and  newmset  then  begin 
mtest 1 « 
mtest  2 

end  else  begin 
mtest 3; 
mtest#; 
mtestS 
end; 

t.l  • 

Tl  e 

(move) 

if  begmset  and  end^set  and  newmset  then  beain 
mtest  1  # 
mtest  2 

end  else  begin 
mtest  3; 
mtest  4 » 
mtestS 
end# 

'r*I 

(reel  ace) 

if  begmset  and  endmset  then 
mtest  1 
else  begin 
mtest  3# 
mtest  # 
end# 

•s’ J 

(search l 

if  begmset  and  endmset  then 
mtest  1 
else  begin 
mtest3» 
mtest  4 
end; 

•x* : 

(X t  rac  t  f i 1 e> 

if  begmset  and  endmset  then 
mtest  l 
else  begin 
mtest  3; 
mtest# 
end 

end  (case) 

end;  (*  checkmarkers  *) 
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procedure  format# 

begin  (*  format  *) 

promot (3) 

end.*  t*  format  *) 
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procedure  edit? 
var 

exit:  boolean; 


orocedure  cooy? 

(♦this  proc  allows  the  user  to  coov/duo li cate 
a  body  of  text  w/i n  the  buffer  as  lonq  as  the 
entire  cooy  will  fit  into  the  buffer.  The 
material  to  be  copied  is  delimited  by  2  cursor 
settings.  The  new  locn  is  also  set  w/  the  cursor 
Note  that  the  cooy  will  oreceed  the  cursor  locn. 

var 

inc#  textlenqth,  start#  finish:  integer; 
procedure  cooychar; 

(*this  proc  actually  oerforms  the  char 
transfer  in  the  eooyinq*) 

begin  (*  cooychar  *) 

bu f f er fi nsendJ  :=  em? 
buf f er tendi ndx 1  :s  em; 
reoeat 

insend  :=  insend  -  l? 
endindx  :=  endindx  -  1? 
byf f er f i nsendl  :=  bu f fer fendi ndx 1 
until  endindx  =  beaindx  ♦  1? 
bu f f er fi nsend  -  1]  :  =  bm? 

buf f er foegi ndxl  :=  bm; 
insend  :  =  insend  -  2 
end? 


(*  cooychar  *) 


(*  COPY  *) 


begi  n 

checkmarkers('c'); 
if  marker sok  then 

if  insend  -  insbeg  >  endindx  -  beqindx  then  beai 
textlength  :=  endindx  -  beqindx; 
if  bufindx  <  newindx  then 
inc  :  =  •H 

else  if  bufindx  >  newindx  then 
inc  “1 
e  1  se 

inc  : s  0 ; 
repeat 

eh  :=  qetbuf char ( i nc ) 
until  c  h  =  nm ; 
repeat 

ch  :=  oetbufchar(-l ) 
until  not  formatcharJ 
if  endindx  <  insbeg  then  beqin 
i . . *bm ' ••• i i ••• i i nsend  .  nm i  •  •  ■  i 
start  : -  begi ndx ; 

finish  :=  insend  ♦  1  •  textlength; 
cooychar 
end  else  beqin 

{... 'insend !nm!...!bm{...!em!...) 
bufindx  :=  insend  +  2# 
repeat 

ch  js  buf f er tbuf i ndxl ; 
bufindx  :  =  bufindx  ♦  (tl) 
unt i 1  ch  =  em; 
endindx  :=  bufindx  -  i; 
beqindx  :=  endindx  -  textlength; 
start  ;3  insend  +  1  -  textlenqth; 
finish  :s  endindx  -  textlenqth; 
cooychar 
end» 

bufindx  :=  insbeg  •  1; 
i mpt oma r ker ( nm ,  tl); 
buf fer Tbuf i ndxl  :=  nm; 
processbu f ( st a r t >  finish) 
end  else 

errormsgf 19) 


end) 


(*  copy  *) 


i 
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orocedure  delete; 

(•this  proe  allows  the  user  to  delete  chars  in 
either  the  right  or  left  direction  by  mowing  the 
cursor  in  the  desired  direction.  an  entire  line 
of  chars  is  deleted  if  the  cursor  is  mowed  up  or 
down.  deletion  in  the  buffer  only  occurs  upon 
user  acceptance*  note  that  format  cmds  w/in  the 
deleted  area  are  also  lost.*) 

war 

forwrd/  backward/  finished:  boolean; 
stop:  integer; 


orocedure  del screen(di r :  char); 

(•this  proc  writes  blanks  or  blank  lines  to 

the  screen  to  show  how  the  deletion  will 

appear.  note  no  deletion  occurs  in  the  buffer.*) 

begin  (*  delscreen  *) 

(deletion  only  reflected  on  screen) 
if  (dir  s  right)  and  not  backward  then  begin 
forwrd  J  =  true; 
writeC  '); 
ch  :=  qetchar(tl) 

end  else  if  (dir  =  left)  and  not  forwrd  then  begin 
backward  :=  true; 
wr i te ( 1 ef  t  /  '  *  /  left); 

ch  J *  qetchar(-l) 

end  else  if  (dir  s  uo)  and  not  forwrd  then  begin 
backward  :=  true; 
b 1 ank 1 n ( rowno ) ; 
setcursor ( rmarqi n /  -1); 
chgrowno(-l  )  ; 
if  rowno  -  1  then  beqin 
SC  rol  1 uo; 

for  i  :=  1*  to  owerlap  ®  1  do 
b 1 ank 1 n ( rowno  ♦  i) 

end 

end  else  if  (dir  s  '  ')  and  not  backward  then  beain 
forwrd  !*  true; 
b 1 ank 1 n ( rowno ) f 
setcursor ( 1 marqi n/  ♦!); 
chgrowno ( + 1 ) 
end  else 

errormsg(9) ; 
xyaddr (co I  no#  rowno) 
end; 


(*  delscreen  *) 


procedure  delprocess; 

(*this  proc  causes  the  deleted  text  to  be 
removed  from  the  buffer  and  processes  the 
remaining  text  as  reauired.*) 

begin  (*  delprocess  *) 

delend  :  =  bufindx; 
if  forwrd  then  begin 
{...!  delete  area  !  insert  area 
( . . . ! del beq • ... i del  end  1 i nsbea ! ... ! i ns end !  ...I 
bufindx  :  =  delbegf 
repeat 

ch  :=  qetbufchar (-1 ) ; 
if  formatchar  then 
delbeg  :  =  delbeg  -  i 
until  textehar; 
insbeg  J=  del beq; 
processbuf (del beq»  delend) 
end  else  if  backward  then  beain 

del  char !  insert  area  'delete  area  !...> 

( . . . ! delend  ! i nsbea !...!< ns end! . ! delbeg! . . . > 

bufindx  js  insbeq  -  1# 
repeat 

Ch  :=  qetbufchar (-1 ) ; 
if  formatchar  then 
delend  Js  delend  *  1 
unt i 1  textehar; 
insend  :  =  delbeg; 
insbeg  :=  delend; 
processbuf (delend/  delbeg) 
end 

end)  (*  delorocess  *) 
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begin  (*  delete  *) 

*yaddr (col  no#  rowno)# 

finished  S=  false# 

forwrd  *  =  false#  (also  downward) 

backward  :=  false#  (also  upward) 

delbeg  :  =  bufindx# 

repeat 

read( inchar)  # 

if  inchar  in  (riaht#  left#  uo#  *  *)  then 
del  screen ( i nchar) 

else  if  ch  s  quit  then  (no  deletion  occurs) 

finished  :=  true 

else  if  inchar  =  accept  then  begin 

(deletion  w/in  buffer  actually  occurs) 
del  process » 
finished  :=  true 
end  else  begin 
errormsg(8)  i 
prompt (5) » 

xyaddr (col  no#  rowno) 
end 

until  finished# 
it  f orwrd  then 

stop  :=  delbeg  (backward) 
el  se 

stop  :=  delend# 
reoeat 

ch  js  aetbufchar(-l ) 
until  (bufind*  <s  stoo)  and  boo  or  bot# 
if  bot  then  begin 
reoeat 

Ch  :=  qetbuf char ( ♦ 1  ) 
until  boln  or  boo  or  eot# 
i f  eot  then 

emotvbuf  • 5  true 

end# 

i f  empt  ybuf  t  hen 
wri te(c 1  ear) 
el  se 

di spl avsc reen ( 1 marai n#  -overlap#  overlap  ♦  1) 
end#  (*  delete  *) 
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procedure  exchange 


(*this  proc  allows  the  user  to  chanae  both  format 
commands  and  text  characters  directly  in  the  buffer, 
primarily  used  for  troubleshooting.*) 

begin  (*  exchange  *) 

repeat 

readf i nchar) i 

if  inchar  <>  quit  then  begin 
buf  fer  fbuf  i  nrlxl  :=  inchar; 
ch  :=  qetbufchar ( *1) J 
xyaddr(4,  lastln); 
if  textchar  then 
xr i te(ch) 
else  if  bop  then 
write('X') 
el  se 

wri  t  e  ( '  \  '  ) 

end 

unt i 1  inchar  s  quit# 
di spl ayscreenC 1  margin#  0#  +1) 
end#  (*  exchange  *) 
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procedure  insert; 

(*  this  oroc  causes  tent  to  be  added  to  the 
buffer  before  the  char  indicated  bv  the  cursor.  *) 

var 

i»  }f  insooSf  insquit:  integer; 
finished:  boolean; 


procedure  inserterase; 

(•this  proc  moves  the  cursor  back  to  the  preceding 
char  and  blanks  out  the  last  entered  char,  wrap¬ 
around  occurs^  in  addition  the  cursor  movement  is 
duplicated  in  the  buffer.*) 

begin  (*  inserterase  *) 

if  bufindx  >  insoos  then  beqin 
ch  *=  buf f er (buf i ndxl ; 

(wraparound  from  new  e*otv  line! 

if  (ch  =  fil!ch)  or  (ch  =  filloffch)  then  begin 


fill  :=  not  fill; 
bufindx  : =  bufindx  -  l; 
insbeg  :  =  insbeg  -  1 
end  else  if  not  newline  then  beqin 
bufindx  :=  bufindx  -  i; 
insbeg  :  =  insbeg  -  1  • 


ch  ;=  buf fer  (buf i ndxl  ; 
wri te(  1  ef t »  *  '»  left) 
end* 

if  newline  then  beain 

(wraparound  to  end  of  previous  line) 

i  :  =  l; 

repeat 

ch  ;s  buf f er (buf i ndx  -  il; 
i  :=  i  ♦  1 
unt i 1  new  line; 
if  boln  then 

colno  !s  i  •  1  ♦  lmarqin 
else  if  boo  then 

colno  • *  i  —  1  ♦  omarain 
else  if  ch  =  tabch  then 

colno  !*  i  •  1  ♦  lmarqin  *  tab; 
rowno  :  =  rowno  -  i; 

bufindx  :s  bufindx  -  l; 
xyaddr(colno#  rowno) 

end  else  (same  line  erase) 

colno  :*  colno  -  1 
end  else  begin 
errormsq( 7) ! 
prompt (2)1 

xyaddr (col no»  rowno) 
end 
end; 


(•  inserterase  *) 


procedure  endl  inefnowpaooed:  inteaer); 

(*this  proc  removes  extra  blanks  from  the  end  of 
the  Previous  line#  sets  the  lm  or  om#  prepares 
the  crt  screen  to  display  the  next  inserted  char 
and  rotates  chars  to  fill  the  stripped  slots, 
nowrapoed  is  the  #  of  chars  to  be  written  to  the 
new  line.*) 

var 

lastch:  char# 

begin  (*  endline  *) 

{remove  extra  blanks  at  eoln  if  present) 
j  :  *  0 ; 
reoeat 

lastch  :s  buf f er  Ibuf i ndx  -  jl# 
i  :=  i  ♦  1 

unt i 1  lastch  <>  •  ' ; 
insoeg  : -  insbeq  -  j  ♦  2# 
bufindx  :=  bufindx  -  j  ♦  2# 

(  set  marker  > 
i f  bop  then  begin 

COlno  :=  pmarqin  *  1# 
buf fer fbuf i ndx)  !  =  pm 
end  else  begin 

eolno  js  Imarqin  +  J# 
buf fer [buf i ndx)  :s  lm 
end? 

{  prepare  crt  screen  > 
if  rowno  <  last  In  then  beqin 
rowno  :=  rowno  ♦  1# 
b 1 ank 1 n ( rowno) 
end  else 
wri te( l f ) » 

xy addr (co 1  no#  rowno)# 

{rotate  and  write  wraooed  chars) 
if  nowraooed  >  0  then 
repeat 

bufindx  :=  bufindx  ♦  l; 
i f  j  >~  2  then 

buffer Cbufindx)  :=  bu f f er [buf i ndx  ♦  1); 
writeC buffer! bufindx) )» 
nowraPPed  :s  nowrapoed  -  1 
until  nowrapped  =  1 

end# 


( *  endl i ne  * ) 


procedure  outchar? 

(♦this  pro c  adds  another  char  to  the  buffer.*) 


begin  (*  Dutchar  *) 

bufindx  :*  bufindx  ♦  1; 
buf fer (buf i ndx]  ss  ch? 
insbeg  :  =  insbeq  ♦  1 

end?  (*  putehar  *) 


procedure  insertchar? 

(*thi s  proe  adds  a  new  char  to  the  text  buffer  and 
provides  automatic  line  wraparound.  note  that  the 
current  buffindx  contains  a  char  while  insbeo  is 
empty.*) 

begin  (*  insertchar  *) 

if  fill  then 

if  colno  <=  margin  then 
if  ch  a  tabch  then 
colno  :=  colno  ♦  tab 
else  begin 
wri te(ch) ; 
colno  :=  colno  ♦  1; 
out  char 
end 

else  if  (colno  >  rmargin)  and  (ch  s  *  •)  then 
endl ine(O) 

else  begin  (nonblank  char  at  eoln) 

(if  (colno>rmarginl  and  (ch<>*  ')) 
putehar? 

i  js  1?  (*  of  wrapped  chars) 

(backtrack  to  soace  before  word) 
repeat 

ch  :a  buf f er (buf i ndx  -  il? 
i  :=  i  *1 
until  ch  s  '  *; 

(blank  out  wraooed  chars  on  screen) 
colno  :  =  colno  *  1  -  i? 
xyaddr (col  nor  rowno)* 
for  i  :s  2  to  i  do 
w  r  i  t  e  ( ’  ' )  ? 

(write  wraoped  chars  on  new  line) 
bufindx  :=  bufindx  -  i? 
endl i ne ( i )  ? 
colno  :  =  colno  ♦  i 
end 
else 

(no  filling  or  autowrao) 
outchar? 

(cheek  for  full  buffer) 

if  insbeo  a  insend  •  1  then  (full  buffer) 
orompt (10) 

end?  (*  insertchar  *) 
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procedure  insformatcmd; 

(*thie  proc  adds  format  commands  to  the  buffer  and 
handles  special  insert  entries#  e.q.  tables.*) 

begin  (*  i ns f ormatcmdchar  *) 

if  bop  then 
endl ine(O) 

else  if  (ch  a  cr)  and  not  fill  then  beain 
(  i gnore  c r  and  fill  ) 
ch  : =  1m; 
endl i ne  C  0 ) 

end  else  if  ch  =  filloffch  then  begin 
outchar » 
fill  ss  false 

end  else  if  ch  ~  fillch  then  beain 
outchar » 
fill  : a  t  rue 
end 

end#  (*  i ns f ormatcmdchar  *) 

procedure  i nsprocess ( ac t i on ;  char); 
f*this  proc  orocesses  the  inserted  tent  and 
surroundina  text  as  necessary.  note  that 
emptvbuf  indicates  the  creation  of  a  new  file.*) 

begin  (*  i nsorocess  *) 

if  action  a  accent  then 
action  ja 
else 

action  ;=  'Q'; 
case  action  of 

•  a*  : 

beoi  n 

if  emotvbuf  then  begin 

jmotomarker (botchar#  -1); 
processbuf f i nsoos#  buflimit) 
end  else  begin 

insquit  J=  insbea  -  l; 
orocessbuf ( i nsoos#  insbea  -  1) 
end; 

emptvbuf  false 
end; 

•Q'  ! 
begi  n 

ino  insertion  occurs) 
insbeg  :s  insoos; 
bufind*  :=  insbea  -  1 
end 

end  (case) 

end;  f*  insprocess  *) 
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beoin  (*  insert  *) 

if  emptyhuf  then  begin 
rowno  !=  1  ♦  msqlns# 
colno  :  =  pmarqin  ♦  1 
end  else  begin 

(*  blank  out  the  end  of  the  line  O 
xyaddr (col no#  rowno)# 
for  I  5s  colno  to  lastcol  do 
writeC  ’); 
b 1 ank 1 n ( rowno  ♦  1)# 

(*  insert  before  cursor  *) 
ch  !  =  qetbufchar (-1 ) 
end? 

xyaddr (col  no#  rowno)# 
finished  I =  false# 
insoos  : =  insbeq# 
reoeat 

read(ch) ; 

i f  newl i ne  then 
insformatcmd 
else  if  te*tchar  then 
insertchar 

else  if  ch  a  erase  then 
inserterase 

else  if  (ch  a  accent)  or  (ch  =  quit)  then  beqin 
insprocess(ch) ; 
finished  :=  true 
end  else  begin 
errormsq(b) # 
promot (2)  » 

xyaddr (col  no#  rowno) 
end 

unt i 1  finished# 

if  not  emptybuf  then  beqin 
repeat 

ch  jr  aetbuf char (-1 ) 
until  (bufindx  <=  insquit)  or  bot# 
di spl aysc reen ( 1 marqi n#  0#  ♦!) 
end  else 

wri te(c1 ear) 

end#  f*  insert  *) 


£ 
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procedure  locate* 

(*this  proc  oerforms  a  oattern  search  thru  the 
file  for  the  input  pattern  strino  and  positions 
the  cursor  at  the  "found"  pattern  or  at  the  end 
of  the  searched  area.*) 

begin  (*  locate  *) 

errormsgf  21 ) 

end*  (*  locate  *) 


procedure  move* 

(♦this  proc  allots  the  user  to  move  text  from 
one  place  to  another  in  the  buffer.  The  body 
to  oe  moved  is  delimited  bv  2  cursor  settings. 
The  new  locn  is  also  set  with  the  cursor. 

Note  the  moved  material  will  preceed  the 
cursor  oos.tion*) 


begi  n 

(*  move 

*) 

nu  1  1 

end? 

(*  move 

*) 

procedure  replace* 

(♦this  proc  will  utilize  the  locate  oroc  to 
replace  a  specified  oattern  w/  another  one 
either  once  or  multiple  times  w/in  the 
delimited  area  of  tent.*) 

begin  (♦  replace  *) 

er rormsg(21 ) 

end*  ( *  reo lace  * ) 
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procedure  Addfile; 

(*this  proc  adds  the  use r-soec i f i ed  file  to  the 
buffer  contents  at  the  locn  indicated  bv  n*») 


war 

addpos#  addquit:  integer; 


beqi n  ( *  Add* i 1 e  * ) 

f i 1 ename ( '  A  '  ) ; 
setmarker ? 
checkmarkers(  ’A*); 
if  narltersok  then  beoin 
addpos  :*  bufindx; 
reset ( i nf i 1 e »  name)* 
i  mptomartcer  (botchar#  -1); 
j mot omar ker ( nm #  +1); 
read Cinfile#  ch); 
repeat 

read (infile#  ch); 
bufindx  :  =  bufindx  ♦  1# 
buf f er fbuf i ndxl  :  =  ch 

until  eof(infi)e)  or  (bufindx  =  insend  -  1)# 
insbeq  :»  bufindx  t  1; 
addquit  :  =  bufindx; 
if  not  eof(infile)  then 
errormsg(23) 
else  beqin 
promot (8) ; 
repeat 

readC i nchar) 

until  inchar  in  t'n'#  'y’l; 

if  inchar  =  ' y ’  then 
del  markers 

end# 

orocessbuf (addoos #  addquit); 
repeat 

ch  ;s  aetbufchar (-1 ) 
until  (bufindx  <-  addquit)  or  bot; 
di spl avscreen ( 1 marqi n#  0#  tl) 
end 

end;  ( *  Addf i 1 e  * ) 
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procedure  Xtractfile? 

(♦this  proc  writes  the  buffer  contents  delimited 
by  bm  and  1m  out  to  a  file*) 

beqin  (*  Xtractfile  *) 

f i 1 ename  C  *  X ' ) ? 
set  marker ; 

Checkmarkersf 'X* ) ? 
if  markersok  then  beqin 
rewr i te (out f i 1 e»  name)? 
wr i t e ( out f i 1 e /  botchar)? 
j motomar ker Cbot ch ar /  -1)? 

jmotomarker (bm/  *1)/ 
ch  :=  qet bu f char ( *  1 ) ? 

repeat 

wr  i te(out  file#  ch )  ? 
ch  :s  qet buf char ( ♦ 1 ) 
until  ch  -  em ? 
wr i te (out f i 1 e/  eotchar); 

rewr i t e (out f i l e) ?  (force  dumo  of  lastl/O  block) 

orompt (8 ) ; 

reoeat 

read (inchar) 

until  inchar  in  ('n‘,  'y'l? 

if  inchar  s  *  y ’  then 
del  mar kers 

end 

end?  (*  Xtractfile  *) 


( *  edit  * ) 


beqi  n 

if  fileread  then  begin 
exit  : =  false? 
orornpt ( l  ) * 
repeat 

x y addr ( co 1  no  *  rowno)? 
read( inchar)# 
if  inchar  in 

(c  r  #  down  #  1eft»riaht»uo»  '  D  '  >  '  IJ  '  #  'o' 
if  not  emptybuf  then 
movecur sor 
e  1  se 

errormsg(2)  (*  text  not  present 
else  if  inchar  in  edcmdset  then  beqi 
case  inchar  of 

•  A' : 

begi  n 

prompt (21); 

Addf i 1 e 
end# 

beqi  n 

promot (6)  # 
copy 
end# 

•C' : 

{Cursor  movement) 
oromot ( 23 )  # 

•d'  : 
beoi  n 

prompt (  5 )  # 
delete 
end# 

'  i ' : 
beqi  n 

prompt ( 2 )  » 
i  nsert 
end# 

•  1  • : 

beqi  n 

prompt (17); 
locate 
end# 


beg  i  n 

promot (7) ! 
move 
end; 
i' ; 

exit  : =  t  rue ' 

I  • 

• 

begi  n 

promot (I8)J 
re o 1 ace 

end; 

•  . 

• 

begi  n 

prompt  C 1 6 ) ; 
setmarker 

end! 

•  • 

bea  i  n 

prompt (20) ; 
exchange 
end; 


begi  n 

prompt (22 )  » 
Xt  rac  t  f  i  1  e 
end 

end;  ( *  edit  case 
if  not  exit  then 
promot (  1  ) 
end  else  begin 
er rormsg ( 4 ) ; 
prompt ( 1 ) 
end 

until  exit 
end  else 

errormsg( 3) 

end; 


*) 


( *  edit  * ) 
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beai  n 


(**  mainline  o*  scope  **) 


(♦this  is  the  driver  for  the  command  level  and  thus 
SCOPE.  It  allows  the  user  to  read  in  and  process 
the  desired  file?  edit  and  format  the  file  in  the 
buffer  and  to  save  the  file  by  writing  it  to  the 
printer  or  to  storage.*) 


stop  : =  false# 
namingfife  false# 
f i 1 eread  false; 

cmdset  :=  f ' r ' #  'w‘#  ' 1 • ,  ' e ' ,  'o',  *  f  *  1  ; 
edcmdset  :  = 

CdS'i'.'q'.'cS'ni'.'p'.'lS's'/if'.'i’.'C 

cursormoveset  !-  [up# down # r i qh t # 1 ef t # c r #  '  b ' 

terminal#  (*  prompt  msa  in  proc  *) 

printer# 

setdef aul ts# 

set  f ormat cmds ? 

wri te(clear);  (*  clearscreen  *) 
reoeat 

prompt (U) ; 
suseri nout ( 1 ) # 

Cmdchar  : s  cmd  tl 1 » 
if  cmdchar  in  cmdset  then 
case  cmdchar  of 
'  r ' : 

readraw# 

iu«  < 

w  • 

w  r i t  e  r aw  # 

•  1  '  : 

1 i storocessed# 

i  _ « . 

C  • 

edit? 

'q'  : 

stop  : *  true# 

•  f  •  s 
f ormat 

end  (*  decode  case  *) 
el  se 

er rormsqf 1 ) 
unt i 1  stoo? 
wri ta(clear) 
end. 


•  x  • )  ; 

e  ' »  *  D 


*u*  l  ; 
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